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STUDY  GIST 


Management  Science  Support  for  Program/Budget  Planning  and  Prioritization 
Methodology 


Principal  Findings 

1.  The  greatest  potential  for  the  MAMP  is  the  close  cooperation  it  engenders 
between  the  AMC  materiel  developer  and  the  TRADOC  combat  developer  in  estab¬ 
lishing  goals  and  recommending  programs  to  DA.  In  many  cases,  there  has  been 
insufficient  communication  between  these  parties.  The  MAMP  provides  a  formal 
mechanism  and  a  visible  product  of  that  communication  which  is  less  demanding 
that  the  preparation  of  requirements  documents.  As  a  planning  tool,  the  MAMP 
excels  in  visualizing  program  structure  and  resource  requirements  for  the 
future. 

2.  The  MAMP  software  is  still  under  development.  The  exact  informational 
requirements  of  MAMP  users  have  not  yet  been  fully  ascertained,  much  less 
satisfied.  The  manager  is  unlikely  to  know  what  the  best  presentation  of 
information  is  until  he  sees  a  sample  report.  Thus,  the  work  done  at  BRDEC 
can  be  viewed  as  the  development  of  prototype  reports  which  can  be  critiqued, 
improved,  and  adopted  if  they  are  successful. 

3.  The  data  contained  in  the  MAMP  database  requires  a  lot  of  work  to 
assemble  and  maintain.  The  quality  control  functions  require  a  significant 
degree  of  knowledgeable  high  level  attention. 


Main  .Assumptions 

1 .  The  BRDEC  automated  MAMP  system  can  be  made  to  be  responsive  to  BRDEC  and 
CSS/EMW/SOF,  independently  of  software  changes  that  may  occur  in  the  AMC  MAMP. 
This  specialized  software  will,  however,  have  to  conform  with  standards  set  by 
the  AMC  system. 

2.  Any  specialized  new  reports,  if  they  prove  to  be  responsive  to  informa¬ 
tional  needs,  can  become  prototypes  for  additions  to  the  AMC  system. 


Principal  Limitations 


1.  The  MAMP  software  available  at  BRDEC  is  generally  unavailable  elsewhere. 
This  is  because  of  the  somewhat  technical  nature  of  the  computer  operating 
system  and  the  complexity  of  the  software.  It  will  require  integration  into 
the  AMC  MAMP  system  for  non-technical  users  to  receive  much  benefit. 


2.  The  MAMP  program  prioritization  algorithm  is  the  responsibility  of 
TRADOC.  This  study  analyzed  the  perceived  deficiencies  in  the  current 
algorithm,  but  it  was  felt  that  the  technique  could  not  be  unilaterally 
altered. 
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This  effort  was  directed  toward  improving  the  automated  MAMP  system  in  place 
at  BRDEC  and  applied  to  the  management  of  the  CSS,  EMW,  and  SOF  mission  areas. 

Objective 

The  objectives  of  this  effort  were  to  provide  management  science  support  to 
test,  analyze,  and  apply  the  revised  AMC  MAMP  software;  to  identify  and 
implement  extensions  to  the  MAMP  that  address  BRDEC  unique  requirements;  and 
to  further  develop  alternative  methods  to  integrate  the  program  prioritization 
and  funding  allocation  processes. 

Basic  Approach 

( 1 )  Functional  and  comparative  analyses  of  the  original  BRDEC  and  revised  AMC 
MAMP  software  were  performed  to  identify  all  substantive  differences  in  their 
content  and  performance.  The  differences  were  such  that  it  was  determined 
that  the  BRDEC  MAMP  would  be  made  to  conform  structurally  with  the  AMC  MAMP. 

(2)  Extensions  to  the  MAMP  software  were  added  so  that  the  MAMP  would  be 
applicable  to  the  BRDEC  unique  requirements  that  span  across  several  TRADOC 
Mission  Areas. 

(3)  Other  program  prioritization  techniques,  specifically  those  that  inte¬ 
grate  the  MAMP  into  the  DA  LRRDAP  process,  were  reviewed  and  implemented  to 
assist  in  the  assessment  of  reprogramming  recommendations. 

Reason  for  Performing  the  Study 

To  provide  the  necessary  support  to  the  Mission  Area  Manager  for  the  CSS,  EMW, 
and  SOF  mission  areas,  in  the  continued  development  and  production  of  the 
Mission  Area  Materiel  Plain. 
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FOREWORD 


This  technical  report  is  submitted  to  the  US  Army  Belvoir  Research, 
Development  and  Engineering  Center,  Fort  Belvoir,  Virginia  by  the  McLean 
Research  Center,  Inc.  (MRC) ,  1483  Chain  Bridge  Road,  Suite  205,  McLean, 
Virginia.  This  report  documents  the  research  performed  under  Contract  Number 
DAAK70-84-D-0052,  Task  Order  0016  entitled  "Management  Science  Support  for 
Program/  Budget  Planning  and  Prioritization  Methodology".  The  major  portion 
of  the  research  effort  is  presented  in  the  four  appendices  which  document  the 
status  of  the  CSS/EMW/SOF  MAMP  software  as  of  August  1986.  They  are  intended 
for  use  as  a  Reference  Manual  for  system  operators. 
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Section  1 


INTRODUCTION 


1.1  Background 

The  automated  Mission  Area  Materiel  Plan  (MAMP)  has  been  under 
development  since  December  1984.  As  a  joint  AMC/TRADOC  program,  the  MAMP  is 
intended  to  relate  the  materiel  development  initiatives  of  AMC  to  the  TRADOC 
developed  Battlefield  Development  Plan  (BDP)  deficiencies.  The  objective  of 
the  MAMP  is  to  more  closely  align  ongoing  and  planned  Army  RDT&E  activities 
with  stated  Army  requirements.  The  automated  MAMP  system  supports  this 
objective  with  responsive  and  comprehensive  reports  of  RDT&E  program  plans  and 
through  consistent  application  of  prioritization  techniques  to  relate  the 
RDT&E  to  the  BDP. 

In  June  1985,  AMC  adopted  the  initial  work  performed  at  BRDEC  on  the 
automated  Combat  Service  Support  (CSS)  MAMP  and  began  the  process  of 
transforming  it  to  be  applicable  to  all  mission  areas.  AMC  provided  the  first 
release  of  its  software  to  the  MAMP  community  in  January  1986.  At  the  same 
time,  the  mission  area  assignments  were  realigned  to  be  consistent  with  the 
TRADOC  mission  areas  (when  earlier  they  were  based  on  the  DA  mission  areas  in 
use  by  AMC).  BRDEC  was  assigned  to  represent  the  CG,TROSCOM  in  his  role  as 
Mission  Area  Manager  of  the  Combat  Service  Support  (CSS) ,  Engineering  and  Mine 
Warfare  (EMW) ,  and  Special  Operations  Forces  (SOF)  mission  areas. 


1 . 2  Objectives 

The  objectives  of  this  effort  were  to  provide  management  science  support 
to  test,  analyze,  and  apply  the  revised  AMC  MAMP  software;  to  identify  and 
implement  extensions  to  the  MAMP  that  address  BRDEC  unique  requirements;  and 
to  further  develop  alternative  methods  to  integrate  the  program  prioritization 
and  funding  allocation  processes. 


1.3  Technical  Approach 

These  objectives  were  accomplished  through  the  following  efforts: 

(1)  Functional  and  comparative  analyses  cf  the  original  BRDEC  and 
revised  AMC  MAMP  software  were  performed  to  identify  all  substantive 
differences  in  their  content  and  performance.  In  many  areas,  the  AMC  MAMP 
system  was  an  improvement  over  the  original  BRDEC  database.  The  differences 
were  such  that  it  was  determined  that  the  BRDEC  MAMP  would  be  made  to  conform 
structurally  with  the  AMC  MAMP. 
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(2)  Extensions  to  the  MAMP  software  were  added  so  that  the  MAMP  would  be 
applicable  to  the  BRDEC  unique  requirements  that  span  across  several  TRADOC 
Mission  Areas.  This  involved  revising  all  existing  BRDEC  MAMP  reports  to 
conform  to  the  AMC  database  structure,  and  particularly  the  AMC  MAMP  control 
files.  All  new  MAMP  reports  generated  in  this  effort  were  designed  to 
generate  output  appropriate  to  BRDEC  as  well  as  to  the  designated  TRADOC 
Mission  Areas. 

(3)  Other  program  prioritization  techniques,  specifically  those  that 
integrate  the  MAMP  into  the  DA  LRRDAP  process,  were  reviewed  and  implemented 
to  assist  in  the  assessment  of  reprogramming  recommendations. 


1.4  Organization  of  this  Report 

This  technical  report  presents  a  complete  synopsis  of  the  work  that  was 
performed  under  this  Task  Order. 

Section  2  describes  the  functional  and  comparative  analyses  that  were 
performed  and  documented  in  an  Interim  Report.  In  addition,  it  includes  the 
functional  analysis  of  the  MAMP  database  integration  process  and  the  text  of 
the  recommendation  made  to  AMC  to  correct  inherent  defects  in  that  process. 

Section  3  documents  the  techniques  used  to  implement  the  BRDEC  unique 
reports  and  the  advanced  program  prioritization  algorithms.  Examples  of  these 
techniques  can  be  observed  in  the  Appendices. 

Section  4  presents  the  findings  and  recommendations  of  this  study  effort. 
These  are  focused  on  the  additional  actions  necessary  to  continue  the 
development  of  the  MAMP  process  and  to  improve  its  utility  to  ^RDEC . 

Appendix  A  documents  the  BRDEC  MAMP  database  structure.  It  contains 
several  unique  data  files  not  included  in  the  AMC  database. 

Appendix  B  documents  the  miscellaneous  procedures  (UNIX  shells  and  C 
programs)  needed  to  correctly  manage  the  BRDEC  MAMP. 

Appendix  C  presents  samples  of  each  of  the  BRDEC  MAMP  reports,  along  with 
instructions  for  running  those  reports. 

Appendix  D  provides  a  record  copy  of  the  source  code  for  each  of  the  ACE 
reports  contained  in  the  BRDEC  MAMP  system. 


Section  2 


FUNCTIONAL  AND  COMPARATIVE  ANALYSES 


2 . 1  Background  to  the  MAMP  Database  Transition 

In  early  1986,  BRDEC  received  the  first  release  of  the  AMC  generated  MAMP 
system.  This  effort  was  a  major  restructuring  of  the  MAMP  system  software 
from  its  configuration  in  1985.  It  incorporated  many  of  the  features  of  the 
RDA  database  system,  and  of  the  earlier  "mat_plan"  database  and  Informix  ACE 
reports  used  at  BRDEC.  It  added  a  menu  structured  user  interface  to  enable 
users  with  less  computer  knowledge  to  operate  the  system  and  data  entry  forms 
to  reduce  the  likelihood  of  data  entry  errors. 

The  new  MAMP  database  posed  a  challenge  to  the  existing  CSS/EMW/SOF  MAMP 
system.  First,  our  database  needed  to  be  revised  from  the  "mat_plan" 
structure  to  the  "mamp"  structure  imposed  by  AMC.  This  would  allow  the 
convenient  exchange  of  data  among  the  various  MAMP  sites.  In  addition,  our 
existing  ACE  reports  needed  to  be  revised  to  accommodate  the  changes  to  the 
database  structure  and  data  elements. 


2.2  Initial  Review  of  the  MAMP  Database 


An  initial  review  of  the  revised  MAMP  database  led  to  the  MRC  Interim 
Report  of  May  1,  1986,  which  is  reproduced  at  Figure  2-1.  It  reported  that 
the  new  "mamp"  database  was  an  improvement  over  the  old  "mat_plan"  database, 
but  that  the  total  system  design  was  still  not  well  thought  through.  In 
particular,  it  pointed  out  that  many  of  the  new  system  features,  like  the 
"perform"  data  entry  screens,  were  particularly  difficult  to  use  and  would  be 
unsuitable  for  our  requirements.  It  was  also  noted  that  the  new  "mamp" 
database  structure  would  not  allow  for  all  the  existing  and  contemplated 
reports  for  the  CSS/EMW/SOF  MAMP. 

During  the  preparation  of  this  report,  the  CSS/EMW/SOF  MAMP  database  was 
transitioned  in  its  entirety  to  be  compatible  with  the  AMC  MAMP  software. 
This  meant  that  all  common  data  elements  between  the  "mamp"  and  the  "mat_plan" 
databases  were  brought  into  conformance  with  the  "mamp"  database.  Any 
additional  data  elements  not  included  in  the  AMC  standard  "mamp"  database  were 
added  to  "mamp"  as  separate  files  so  as  not  to  corrupt  the  standard  file 
definitions.  Subsequently,  all  existing  CSS/EMW/SOF  reports  were  revised  to 
utilize  that  new  structure. 


2-1 


May 


1 


15:  11  1986  interim,  rpt  Page  1 


INTERIM  REPORT  ON  THE  MAMP  DATABASE 

Prepared  By:  Neil  Romstedt 

McLean  Research  Corporation 
1  May  1986 


A.  OBJECTIVE 

This  interim  report  is  provided  in  accordance  with  Subtask  1  of  Task  Order 
0016  of  DAAK70-84-D-0052.  It  documents  the  preliminary  findings  of  this 
contractor  in  the  use  of  and  transition  to  the  AMC  revised  mamp  database  and 
sof  tuar e. 

B.  DATABASE  DIFFERENCES 

The  mamp  database  is  not  s i g n i f i c an 1 1  y  different  from  the  mat_plan  database. 
Both  contain  ap p r o x l ma t e 1 y  the  same  data  about  systems,  wor k pac kag e s.  and 
d ef  i  c  i  enc  i  e s .  The  major  difference  between  the  two  is  the  organization  of 
funding  data  for  wor k p a c k a g e s .  tasks,  and  projects.  While  mat_plan  uses  a 
single  record  to  include  the  funding  stream  over  the  eight  year  horizon  of  the 
planning  data,  the  mamp  uses  individual  records  for  each  of  the  years  in  which 
funding  data  is  provided.  The  mamp  technique  reflects  the  database  structure 
used  in  the  RDA  budget  database,  from  which  the  data  is  derived.  This 
technique  has  advantages  and  d i sad van tag e s .  The  primary  advantage  is  that 
if  funding  for  any  particular  year  is  blank,  then  the  record  does  not  have 
to  be  entered  in  the  database.  In  the  mat _plan  database,  the  field  is  reserved 
and  set  to  0.0  if  no  data  is  entered.  The  primary  disadvantage  is  that  multiple 
records  must  be  used  for  any  one  workpackage.  task,  or  project.  Each  record 
has  overhead  in  terms  of  the  repeated  information  needed  to  identify  and  link 
the  record  to  the  other  associated  data.  In  general  terms,  if  the  overhead 
can  be  kept  small,  then  it  is  usually  preferred  to  have  separate  records. 

However,  the  complexity  of  the  data  in  the  MAMP  dictates  that  there  be  a  large 
quantity  of  overhead  data. 

For  example,  to  correctly  link  a  specific  funded,  unfunded,  and  guidance 
quantity  for  a  workpackage  for  one  year,  the  mamp  database  requires  the 
workpackage  command,  category,  subcategory,  pe,  project-  task,  workpackage 
number,  and  year.  These  data  total  50  bytes  per  record  (out  of  about  80  total 
bytes).  In  addition,  the  index  overhead  of  about  35  bytes  per  record  must  be 
included  If  four  years  of  data  were  entered,  then  the  four  records  would 
consume  a  total  of  about  460  bytes.  If  the  data  were  organized  as  a  single 
record  of  eight  years,  then  the  overhead  would  be  44  data  bytes  per  record 
(out  of  about  290  bytes  total)  and  the  index  overhead  would  be  about  20  bytes, 
for  a  total  of  310  bytes.  Some  of  this  disparity  could  be  eliminated  through 
better  database  design  practices  to  eliminate  unnecessary  overhead  data,  and 
this  action  should  certainly  be  taken.  The  potential  future  expansion  to  an 
Extended  Planning  Annex  (EPA)  forecast  of  an  additional  8  years  (16  years 
total)  of  RDT&E  funding  could  clearly  alter  the  balance  in  the  favor  of 
individual  records,  so  this  issue  should  be  carefully  considered. 

In  addition,  the  organization  of  the  data  into  individual  years  presents 
tome  intriguing  and  challenging  problems  to  the  casual  ACE  report  writer. 

The  level  of  complexity  of  the  report  writing  problem  multiplies  by  the  number 
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of  individual  data  record!  which  must  be  handled.  Without  clever  programmers 
and  thorough  training<  the  reports  quickly  become  so  complex  and  the  files 
produced  so  large  that  the  user  is  deterred  by  energy  and  time  from  using  the 
database  to  solve  his  unique  problems. 

Both  the  mamp  and  mat _plan  databases  suffer  from  being  not  well  thought 
out  and  designed.  The  mamp  database  deserves  our  attention  since  it  is  the 
database  that  AMC  has  designated  and  will  use.  There  are  several  design 
improvements  that  could  be  suggested  at  this  point>  but  since  a  thorough 
redesign  is  appropriate  no  recommendation  is  made  at  this  point.  Some  issues 
to  consider  in  the  redesign  are: 

(1)  What  is  sufficient  and  unique  to  identify  a  workpackage?  Does  the 
identity  chain  include  command,  category,  subcategory,  pe.  project,  task,  and 
workpackage  number?  Or  is  the  command,  category,  and  workpackage  number 
sufficient?  I  believe  that  the  command,  pe.  project,  task,  and  workpackage 
number  are  enough,  and  that  the  category  and  subcategory  of  any  particular 
project  should  be  maintained  in  the  project  file. 

(2)  What  does  the  acquisition  code  have  to  do  with  the  linking  of  systems 
to  deficiencies  and  why  is  it  in  the  ssndef  file? 

(3)  Why  is  the  priority  of  a  particular  pdip  contained  in  the  lrrdp  file? 
This  allows  careless  data  entry  clerks  to  put  different  priorities  in  for  the 
same  p d ip / increment.  The  pdip  priority,  along  with  any  other  vital  data  about 
the  pdip  that  may  be  required  should  be  in  a  pdip  file. 

(4)  Workpackage  contribution  values  to  systems  that  they  are  linked  to 
need  to  be  included  in  the  wkpsys  file.  This  change  is  critical,  and  has 
already  been  done  (unilaterally)  for  our  mamp  database. 

(5)  The  project  index  field  in  the  project  control  file  needs  to  be 
switched  to  allow  duplicate  entries  for  any  one  project.  This  will  allow 
one  project  to  be  used  against  different  mission  areas,  commands,  or  flags. 
Currently  the  schema  will  allow  only  one  entry  for  any  one  project.  This  same 
problem  is  present  in  the  workpackage  control  file.  Both  have  been  changed 
(unilaterally)  for  our  mamp  database. 

(6)  The  system  title  should  be  in  the  ssn  file  and  not  the  lrrdp  file 
since  it  is  the  same  for  each  pd ip/increment  that  a  system  may  be  linked  to. 
This  change  will  make  the  ssn  file,  not  the  lrrdp  file  the  key  file  entry 
point  for  systems 

(7)  Why  can't  the  workpackage  funding  data  and  the  workpackage  statement 
data  be  combined  into  a  single  file?  Both  use  exactly  the  same  structure  for 
identifying  the  relevant  workpackage  and  year  concerned.  Combining  them  will 
eliminate  half  the  overhead  of  the  two  files.  This  might  conflict  with  a 
decision  to  merge  the  funding  data  into  a  single  record. 

(8)  What  purpose  is  the  workpackage  control  file  that  is  not  served  by 
the  project  control  file? 

(?)  The  workpackage  description  file  could  be  merged  into  the  wkpkg  file. 
This  would  create  a  long  workpackage  record  but  would  cut  the  overhead  by 
half. 
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(10)  The  classification  identification  procedures  that  we  use  in  the  mamp 
are  not  very  thorough.  It  is  difficult  to  tell,  except  for  the  text 
descriptions,  what  of  the  data  presented  in  any  of  our  reports  is  SECRET  or 
CONFIDENTIAL.  The  data  fields  used  in  the  data  base  to  tell  us  the 
c lass i f i cat i on  of  the  data  are  ambiguous  as  to  which  data  is  to  be  marked. 

We  need  to  rethink  this  process  and  set  some  specific  standards  that  we  will 
f  o  1  low. 

C.  PERFORM  SCREENS 

The  concept  of  using  perform  screens  to  simplify  the  operator  interface  for 
data  entry  and  application  is  well  understood.  In  general,  the  average  computer 
user  cannot  be  trusted  to  correctly  type  in  data  and  is  usually  not  well  enough 
versed  in  a  computer's  operating  system  to  execute  programs  without  simple 
and-  straightforward  instructions.  The  perform  screen  is  intended  to  provide 
a  common  user  interface,  which  with  some  brief  training  will  allow  the  data 
entry  clerk  and  the  database  administrator  alike  to  access  and  use  the  database. 
This  cannot  completely  correct  for  erroneous  data  but  using  a  systematic 
system  like  the  perform  screens  can  catch  a  significant  fraction  of  the 
mistakes  that  might  and  probably  would  occur  if  the  data  were  entered  directly 
into  the  database  (using  enter2). 

The  perform  screens  exact  a  performance  degradation  on  data  entry.  In  well 
designed  screens  this  penalty  will  be  negligible.  However,  in  the  screens 
provided  by  AMC.  the  penalty  is  terrible.  It  takes  about  four  times  as  long  to 
enter  data  using  the  perform  screens  as  compared  to  enter2.  Then  as  an  extra 
little  kicker,  to  exit  the  perform  screens  and  correctly  update  the  data  base, 
the  AMC  software  forces  the  user  to  execute  some  hidden  processes  that  check 
to  see  that  all  the  software  defined  codes  are  correct.  This  process  takes 
about  30  minutes  and  completely  ties  up  the  user's  terminal.  Furthermore,  it 
also  completely  ties  up  the  database  so  that  other  users  cannot  gain  access  to 
the  database  to  enter  their  own  data.  From  our  experience,  the  use  of  the 
existing  perform  screens  is  a  huge  waste  of  time.  Although  it  may  be 
appropriate  for  an  occasional  user,  it  is  not  appropriate  for  the  massive  data 
entry  and  short-fuxed  reporting  requirements  that  the  MAM  faces. 

The  perform  screens  should  be  used  with  caution  until  they  can  be  fixed. 

This  fix  should  be  prepared  along  with  the  database  redesign  discussed  earlier. 

D.  AMC  PROVIDED  REPORTS 

The  AMC  provided  reports  are  a  reasonable,  but  incomplete,  clones  of  the 
reports  that  were  being  used  at  Belvoir  in  the  summer  of  1985.  Since  that  time 
the  Belvoir  reports  have  changed  significantly  in  content  and  quantity.  The 
AMC  System  Summary,  Deficiency  Summary,  and  Commodity  Summary  are  adequate 
but  slightly  confusing.  The  use  of  the  control  codes  and  control  names  to 
access  the  desired  systems,  deficiencies,  and  commands  is  not  well  documented 
and  not  intuitive.  We  were  initially  unable  to  reliably  get  reports  out  of  the 
AMC  system  -  probably  because  we  did  not  understand  it.  The  AMC  software 
appeared  to  produce  unpredictable  results,  like  not  producing  a  System  Summary 
for  all  systems  owned  by  Belvoir  when  the  report  is  asked  for  using  the 
menu  structure.  Obviously,  either  the  wrong  questions  were  asked  or  the  wrong 
answers  provided.  This  will  become  very  frustrating  for  other  users  who  have 
no  recourse  to  run  their  own  reports. 

The  AMC  reports  are  a  little  faster  than  our  own.  I  would  guess  about 
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20  percent  faster.  But  these  reports  also  tie  up  a  user's  terminal  so  that 
no  other  work  can  be  done  while  the  reports  are  being  run.  Typically  the  user 
will  select  output  to  the  printer,  since  most  people  need  printed  reports,  but 
if  the  printer  breaks  down  during  the  print  job  (a  frequent  occurence  here) 
then  the  user  is  forced  to  rerun  the  whole  report.  The  AMC  reports  appear  to 
have  no  capability  to  set  the  starting  page  for  any  one  report.  Thus,  we  could 
not  get  the  reports  automatical ly  page  sequenced  for  our  MAMP  volumes. 

Fortunately,  we  do  not  have  to  rely  on  the  performance  of  those  reports. 

Our  own  ACE  reports  are  completely  within  our  control  to  modify  and  use.  We 
should  continue  to  use  and  develop  them  as  our  needs  change.  We  should  offer 
those  reports  to  ALMSA  and  other  MAMs  for  their  consideration. 

E.  CHANGEOVER  TO  THE  MAMP  DATABASE 

The  changeover  in  data  from  the  mat_plan  to  the  mamp  database  has  been 
completed.  The  process  of  moving  the  data  took  approximately  16  hours,  but 
much  work  in  scrubbing  the  data  that  is  there  remains.  In  moving  the  mat_plan 
data,  some  of  it  was  corrupted  by  the  AMC  provided  integrated  database.  This 
problem  is  discussed  in  detail  in  paragraph  F  below. 

The  changeover  in  reports  to  the  mamp  database  is  proceeding  more  slowly. 

I  have  moved  8  old  reports  and  created  5  new  ones  in  the  last  week.  There  is 
still  lots  more  to  do  in  this  regard.  The  changeover  requires  preparing  some 
temporary  database  files,  going  through  the  programs  and  changing  the  variable 
names,  adding  the  control  code  as  well  as  the  control  name,  and  rechecking  all 
the  linking  between  files  to  ensure  that  it  is  being  done  properly.  I  estimate 
that  the  reports  will  all  be  transferred  within  the  next  three  weeks.  The 
priority  will  be  given  to  the  reports  that  constitute  the  MAMP  document. 

F.  DATA  FLOW  AND  TRANSFER 

The  data  flow  process  for  the  integrated  MAMP  is  not  well  thought  through. 
There  is  the  significant  likelihood  that  there  will  be  circular  data  flow,  so 
that  bad  data  propogates  throughout  the  system  and  that  errors  cannot  be 
reliably  corrected.  This  will  occur  if  the  AMC  data  integration  process  can 
not  distinguish  between  scrubbed  data  from  a  MAMP  or  RDA  site  and  data  that 
was  not  checked  by  a  MAMP  or  RDA  site  because  it  was  not  relevant  to  that  data 
manager.  Thus,  our  data  errors  will  be  picked  up  by  all  other  MAMs.  and 
returned  to  us  at  some  later  date  in  the  circular  flow,  after  we  have  hopefully 
found  and  corrected  those  errors  in  our  own  database. 

One  solution  to  this  problem  that  we  can  implement  at  Belvoir  is  to  maintain 
a  physically  separate  "integrated"  database  on  our  Plexus.  There  will  be  room 
for  this  when  the  mat_plan  is  retired  to  tape.  Then,  we  will  read  the  AMC 
tapes  into  this  other  database,  and  carefully  control  the  transfer  of  data 
from  the  integrated  database  into  our  mamp  database.  All  of  our  corrections  and 
data  submissions  will  come  from  our  mamp  database  to  ensure  that  we  are  not 
contributing  to  the  circular  data  flow. 

This  approach  will  also  allow  us  to  remove  from  our  mamp  database  any  data 
that  is  obviously  not  appropriate  to  our  mission.  If  we  can  get  rid  of  the 
data  that  we  do  not  use.  then  our  reports  will  ru.i  faster  and  our  submissions 
to  AMC  will  not  include  some  other  MAMs  bad  data. 

We  should  also  carefully  consider  the  impact  of  unilateral  database  changes 
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on  o or  capability  to  feed  the  AMC  data  submissions.  At  this  point,  the  two 
changes  we  have  made  will  require  some  special  attention  in  preparing  the  tape. 
These  changes  were  critical  so  they  were  made.  but  the  decision  to  make 
additional  changes  will  magnify  the  compatibility  problems  we  will  likely  face. 

G.  NEW  INFORMIX  RELEASES 

Relational  Database  Systems  has  released  several  new  products  with  the 
Informix  system.  The  basic  Informix  package  now  includes  SQL.  their  version 
of  the  IBM  structured  query  language.  They  have  an  advanced  report  writer 
called  4GL  for  4th  generation  language  that  they  sell  as  an  option. 

Another  intriguing  option  is  the  optional  C  programming  tools  package  that 
they  sell  ( Inf ormi x— ESGL > .  These  tools  consist  of  a  subroutine  library  that 
any  C  program  can  call  to  access  the  database  and  index  files.  It  appears 
that  any  competent  programmer  can  directly  access  the  Informix  database  from  a 
C  program  to  produce  reports  (or  whatever)  without  having  to  write  special 
drivers  or  use  the  proprietary  ones  developed  by  IITRI. 

G.  CONCLUSIONS 

We  are  now  using  the  AMC  mamp  database  as  best  we  can.  The  process  of 
moving  our  established  reports  is  underway.  Uninterrupted  attention  is 
required  to  ensure  the  success  of  this  venture  between  now  and  June. 
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2.3  Subsequent  Modifications 


Since  its  initial  release,  the  AMC  MAMP  system  has  undergone  four 
revisions.  Each  revision  has  added  new  database  fields  and/or  files,  new  or 
modified  reports,  and  appropriate  menu  entries  and  data  entry  forms  to  support 
its  enhanced  capabilities.  To  its  great  credit,  the  AMC  installation 
instructions  have  been  very  thorough  and  the  system  has  worked  exactly  as 
advertised  with  each  revision. 

The  installation  of  each  revision  takes  approximately  four  to  eight  hours 
of  computer  time.  The  installation  process  consists  of  reading  in  the  new 
release  tape,  positioning  the  files  in  the  appropriate  directories,  and 
running  the  installation  shell  programs.  These  shell  programs  automatically 
update  the  old  database  files  to  their  new  structure,  create  new  files,  add 
any  default  data  values,  revise  the  menus  and  perform  screens,  and  recompile 
and  relink  the  C  programs  that  support  the  system.  During  this  period  the 
computer  is  unavailable  for  other  MAMP  work.  In  addition,  the  changes  to  the 
database  structure  must  be  carefully  examined  to  determine  their  impact  on  the 
CSS/EMW/SOF  MAMP  reports.  Whatever  changes  are  present  must  be  completely 
integrated  into  our  database  to  keep  it  in  conformance  with  the  AMC  structure 
and  yet  still  allow  the  running  of  our  own  reports.  This  transition  imposes 
an  additional  workload  of  approximately  four  to  ten  days,  depending  upon  the 
extent  of  the  required  changes  to  the  ACE  reports. 

2.4  Database  Integration  Process 

One  of  the  goals  of  the  MAMP  system  is  the  convenient  and  rapid  exchange 
of  data  among  the  MAMP  sites  and  AMC.  An  "integrated"  database  is  envisioned 
where  data  entered  in  at  one  site  is  available  to  all  users.  Because  there 
are  many  different  sites,  and  they  use  physically  separate  computers  which  are 
not  electrically  interconnected,  the  data  used  at  each  site  is  actually  quite 
distinct.  Periodically,  the  data  must  be  collected  and  joined  together  into  a 
single,  larger  database.  This  process  is  initiated  with  a  data  tape 
submission  from  each  MAMP  and  RDA  site  to  AMC.  AMC  then  consolidates  the  data 
and  returns  the  integrated  database  to  the  MAMP  sites  to  replace  the  earlier 
data.  Then,  at  least  until  the  data  is  changed  by  the  Mission  Area  Managers, 
the  MAMP  sites  will  all  be  using  the  same  data. 

The  problem  of  circular  data  flow  that  is  inherent  with  this  technique 
was  described  in  the  Interim  Report.  In  fact,  for  the  integrated  database 
that  was  distributed  in  June  1986,  approximately  one  month  of  productive 
effort  was  lost  to  the  CSS/EMW/SOF  system  because  the  integrated  database 
required  extensive  review  and  corrective  action  to  restore  it  to  its  original 
status.  Bad  data  that  was  introduced  into  the  MAMP  database  during  the 
integration  process  had  corrupted  the  scrubbed  data  in  the  CSS/EMW/SOF  system. 
This  bad  data  could  only  be  identified  through  close  examination  and 
comparison  with  reports  produced  under  the  pre-integration  database. 

This  bad  experience  led  to  the  BRDEC  proposal  in  July  that  AMC  adopt  a 
more  controlled  procedure  for  the  database  integration  process.  The  text  of 
the  proposal,  with  a  detailed  procedure  that  might  be  followed,  is  presented 
at  Figure  2-2.  This  proposal  was  immediately  adopted  by  AMC,  and  implemented 
in  August  throughout  the  MAMP  system.  Its  actual  effectiveness  at  correcting 
the  circular  data  flow  problem  will  be  determined  at  the  next  data  submission. 
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A.  OBJECTIVE 

The  objective  of  this  paper  is  to  propose  a  procedure  which  will  greatly 
speed  the  process  of  MAMP  database  integration  and  provide  the  greatest 
assurance  possible  that  the  integrated  database  will  contain  only  quality 
data. 


B .  BACKGROUND 

One  of  the  problems  yet  to  be  faced  by  the  MAMP  process  is  establishing  a 
structured  data  flow.  Responsibilities  for  data,  its  accuracy  and  its 
completeness  have  not  been  assigned  to  anyone.  At  present,  we  appear  to  be 
operating  on  the  principle  that  more  data  is  better,  regardless  of  where  it 
comes  from.  On  the  face  of  it,  this  principle  is  flawed.  The  database  should 
contain  only  quality  data  that  has  been  scrubbed  and  approved  by  a  responsible 
authority.  Otherwise,  we  are  wasting  our  time  in  a  "garbage  in  -  garbage  out" 
paper  production  effort. 

Each  HAN  administrator  spends  most  of  his  time,  and  most  of  his  staff’s 
time,  paying  attention  to  the  details  of  the  data  he  uses  for  his  MAMP.  The 
database  is  constantly  being  updated  as  new  information  is  developed,  systems 
and  programs  are  built,  deficiencies  and  contribution  values  are  assigned,  and 
data  presently  in  the  database  are  scrubbed. 

The  MAMP  database  integration,  as  it  occurred  in  March-April  and  May- 
June,  aggravates  the  problem  of  data  quality.  In  March,  we  all  sent  in  data 
tapes  to  AMC  containing  the  best  data  we  had  at  that  time.  Some  of  that  data 
was  incomplete  and  inaccurate.  In  April,  we  received  the  consolidated  data 
with  everyone's  best  data  as  of  March.  Naturally,  we  continued  to  focus  on 
and  improve  the  data  pertinent  to  our  own  MAMPs  and  we  ignored  the  data  that 
was  not  pertinent.  In  May,  we  sent  in  another  data  tape  to  AMC  for 
integration. 

In  June,  we  got  back  the  integrated  database  but  it  included  all  the  bad  data 
that  we  had  just  spent  the  last  two  months  cleaning  out  of  our  database! 

The  reason  for  this  is  that  just  as  the  CSS/EMV/SOF  MAM  administrator 
spent  no  time  trying  to  clean  up  the  FS  MAMP  data  (or  anyone  else's  for  that 
matter),  so  the  FS  MAM  administrator  spent  no  time  on  CSS/EMV/SOF  data.  The 
result  of  the  integration  process  is  to  perpetuate  bad  data  throughout  the 
system.  Instead  of  being  identified  and  eliminated,  the  bad  data  looks  just 
like  good  data  and  so  is  redistributed  to  all  MAM  sites.  This  chaotic 
situation  has  to  be  stopped  at  the  time  of  database  integration.  The  next  AMC 
data  call  is  planned  for  21  July  and  we  must  be  prepared  to  implement  a 
revised  procedure  immediately. 

Two  procedures  are  proposed  to  ensure  only  the  best  data  is  integrated 
into  the  AMC  database.  First,  only  scrubbed  data  should  be  sent  to  AMC  by 
each  MAH  site.  If  the  MAM  administrator  is  not  responsible  for  that  data, 
then  he  should  not  send  it  in.  Second,  AMC  should  not  accept  data  for  which 
the  MAM  administrator  is  not  responsible  and  should  establish  automated  means 
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to  identify  and  reject  that  data. 

C.  CONTROL  FILES 

The  correct  mechanism  for  establishing  what  data  the  MAM  administrator  is 
responsible  for  is  through  the  control  files.  Control  files  are  maintained  in 
the  MAMP  database  for  Deficiencies  (defctl) ,  Systems  (ssnctl) ,  Projects 
(prjctl) ,  and  tforkpackages  (wkpctl).  The  control  files  allow  the  MAMP 
software  to  automatically  select  the  specific  data  out  of  the  database  that  is 
pertinent  to  any  one  MAMP. 

The  control  file  structure  is  a  bit  difficult  to  grasp  at  first,  but  it 
makes  sense  when  you  understand  that  it  can  be  used  for  a  wide  variety  of 
control  functions  and  that  the  same  structure  is  consistently  applied  in  all 
of  the  control  files. 

The  control  files  use  the  field  "code"  (dcl_code,  scl_code,  pcl_code,  and 
wcl_code)  to  denote  whether  the  record  refers  to  a  TRADOC  Mission  Area,  a  DA 
Mission  Area,  an  MSC,  or  a  Flag.  Thus,  in  the  same  file,  a  single  system 
could  be  designated  as  being  included  in  a  TRADOC  mission  area  (EMU) ,  a  DA 
mission  area  (CSS),  a  command  (BELVOIR) ,  and  a  flag  (LOG  RtD)  MAMP.  This 
gives  the  database  the  flexibility  to  be  used  for  other  purposes  than  just  the 
current  TRADOC  Mission  Areas  of  interest  today.  If  a  MAM  site  cares  to  have 
multiple  MAMPs  in  a  single  database  then  the  control  files  provide  a  way  to 
keep  them  straight.  At  the  moment,  our  concern  and  responsibility  is  only  for 
the  TRADOC  Mission  Areas  that  have  been  assigned.  They  are  all  designated  by 
using  the  code  =  1. 

The  control  file  field  "name"  (dcl_name,  scl_name,  pcl_name,  and 
wcl_name)  are  used  to  separate  out  the  Mission  Areas,  Commands,  or  Flags, 
depending  upon  the  value  of  the  “code"  field.  So  at  Belvoir,  we  use  "CSS", 
"EMU",  and  "SOF"  in  the  "name"  field.  The  field  has  been  set  to  twelve  (12) 
characters  wide  to  accommodate  the  maximum  size  of  a  command  name  (should  the 
code  =  3),  although  all  the  TRADOC  Mission  Areas  are  two  or  three  characters 
wide. 


So,  if  the  FS  MAM  administrator  is  using  data  in  the  database,  then  his 
deficiencies,  systems,  projects,  and  workpackages  are  identified  by 
corresponding  records  in  the  control  flies  with  code  *  1  and  name  =  "FS". 
This  is  the  same  criteria  that  should  also  be  used  to  automatically  select  out 
the  data  that  should  be  sent  to  AMC  in  a  data  call. 


D.  SPECIFIC  FILES  TO  SEND  AND  PROPOSED  PROCEDURES 

The  following  paragraphs  will  discuss  each  file  that  should  be  sent,  and 
the  criteria  that  should  be  used  to  select  the  specific  records  to  send. 

The  Informix  command  "Informer"  should  be  used  to  select  these  records. 
The  UNIX/Inf oraix  commands  to  do  this  are  shown  for  each  file.  To  get  started 
type: 

cd  (to  get  you  to  the  home  directory) 

cd  data  (or  wherever  you  want  the  output  files) 

rm  -i  *  (to  get  rid  of  all  the  old  .uld  files) 

informer  mamp 
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I  have  used  Che  CSS  mission  area  Co  illusCraCe  Che  process.  JusC  subscicuce 
your  own  mission  area  name  in  for  CSS  wherever  ic  is  shown. 

1.  SSNCTL:  The  Syscem  ConCrol  File.  Syscems  are  selecced  in 

conjunction  wich  Che  combac  and  maCeriel  developer,  appropriaCe  for 
che  mission  area. 

unload  ascii  ssncd  where  scl_code  =  1  and  scl_name  =  "CSS" 

Co  "ssncd. uld"; 

2.  DEFCTL :  The  Deficiency  ConCrol  File.  Deficiencies  are  assigned  Co 
MAMs. 

unload  ascii  defcd  where  dcl_code  =  1  and  dcl_name  =  "CSS" 

Co  "defcd. uld"; 

3.  PRJCTL:  The  ProjecC  ConCrol  File.  Projects  are  assigned  Co  MAMs. 

unload  ascii  prjctl  where  pcl_code  =  1  and  pcl_name  =  "CSS" 

Co  "prjcd.uld"; 

4.  VKPCTL ;  The  Vorkpackage  ConCrol  File.  This  file  is  opCional.  It 
is  used  Co  identify  specific  workpackages  in  a  mission  area  when  the 
entire  project  cannot  be  identified  using  the  project  control  file. 
This  would  occur  if  the  project  were  shared  among  two  mission  areas. 

unload  ascii  wkpctl  where  wcl_code  »  1  and  wcl_name  =  "CSS" 
to  "wkpctl. uld"; 

5.  DEF:  The  Deficiency  Description  File.  The  assigned  deficiency 
manager  should  be  responsible  for  any  updates  and  corrections  to  the 
deficiency  data. 

unload  ascii  def  where  dcl_code  =  1  and  dcl_name  =  "CSS" 
joining  def_def  =  dcl_def  to  "def. uld"; 

6.  SSNDEF :  The  System  to  Deficiency  Linkage  File.  The  assigned 

deficiency  manager  should  be  responsible  for  all  entries  against  his 
deficiencies.  The  system  manager  can  nominate  linkages  to 
deficiencies,  and  enter  unrated  linkages  into  the  integrated 
database,  but  must  coordinate  with  the  deficiency  manager  to  have  a 
contribution  value  assigned  and  entered  into  the  database. 

(find  linkage  for  all  mission  area  deficiencies) 
read  into  a  ssndef  where  dcl_code  *  1  and  dcl_naae  =  "CSS" 
joining  ssndef _def  =  dcl_def; 

(find  linkage  for  all  mission  area  systems) 
read  into  b  ssndef  where  scl_code  *  1  and  scl_name  =  "CSS" 
joining  ssndef_ssn  =  scl_ssn; 

(find  MA  systems  linked  to  non-HA  deficiencies) 


Figure  2-2. 
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assign  c  »  b  minus  a; 

(blank  out  Che  contribution  values  for  these  linkages) 
read  into  d  c.ssndef_ssn  c.ssndef_def  cv="  ”  c.ssndef_acq_code; 

(add  together  the  two  linkages  of  interest  and  unload) 
assign  e  =  a  union  d; 
unload  ascii  e  to  "ssndef .uld”; 

7.  LRRDP:  The  System  to  PDIP  Linkage  File  and  Procurement  Funding 

Stream.  The  system  manager  will  enter  in  new  records  into  the  lrrdp 
file  for  all  systems  assigned  NSIs  and  for  systems  with  SSNs  that 
were  forgotten  in  the  DA  LRRDAP.  The  funding  data  for  these 
additional  entries  will  be  all  zeros.  AMC  will  ensure  that  the 
latest  LRRDAP  funding  data  and  PDIP  alignments  and  priorities  are 
reflected  in  the  integrated  data  base. 

unload  ascii  lrrdp  where  scl_code  =  1  and  scl_name  =  "CSS” 
joining  lrrdp_ssn  =  scl_ssn  to  "lrrdp. uld"; 


8.  SSN:  The  System  Description  File.  The  system  manager  will  enter  in 
and  correct  system  description  data. 

unload  ascii  ssn  where  scl_code  =  1  and  scl_name  =  "CSS" 
joining  ssn_ssn  =  scl_ssn  to  "ssn. uld"; 

9.  WKPKG:  The  Workpackage  Definition  File.  The  workpackage  manager 
will  enter  in  or  revise  the  workpackage  to  PDIP  linkage  into  this 
file.  Workpackages  are  identified  by  belonging  to  controlled 
projects  and/or  by  being  controlled  workpackages  themselves. 

(find  all  workpackages  that  are  part  of  controlled  projects) 
read  into  a  wkpkg  where  pcl_code  =  1  and  pcl_name  =  "CSS" 
joining  wkpkg jroj_idx  =  pcl_idx; 

(find  all  workpackages  that  are  individually  controlled) 
read  into  b  wkpkg  where  wkp_code  =  1  and  wkp_name  =  "CSS" 
joining  wkpkg_no_idx  =  vcl_idx; 

(join  the  workpackages  together  and  unload) 
assign  c  *  a  union  b; 
unload  ascii  c  to  "wkpkg. uld"; 

10.  WKPSYS:  The  Workpackage  to  System  Linkage  File.  The  MAM  will  enter 
in  or  revise  the  linkages  and  include  criticality  factors  as  needed. 
The  system  manager  will  be  the  sole  authority  to  assign  the 
criticality  factors.  The  project/workpackage  manager  will  nominate 
linkages  for  review  by  the  system  manager.  Note  that  this  file 
should  completely  replace  the  mamp  file  in  the  RDA  database. 

(find  linkages  for  all  mission  area  systems) 
read  into  a  wkpsys  where  scl_code  =  1  and  scl_name  =  "CSS" 
joining  wkpsys_ssn  =  scl_ssn; 
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(find  linkages  for  all  mission  area  vrorkpackages) 
read  into  b  wkpsys 

joining  wkpsys_wkpkg_idx  =  c.wkpkg_vkpsys_idx;  (using  c  above) 

(find  all  HA  workpackages  linked  to  non-HA  systems) 
assign  d  -  b  minus  a; 

(blank  out  the  criticality  factors  for  these  linkages) 
read  into  e  d.wkpsys_idx  cf=0; 

(join  together  the  two  files  of  interest  and  unload) 
assign  f  =  a  union  e; 
unload  ascii  f  to  "wkpsys. uld"; 


E.  CONTROL  REQUIREMENTS  FOR  INTEGRATION 

AMC  should  take  care  to  ensure  that  the  principles  applied  here  are 
followed  throughout  the  integration  process.  Particular  emphasis  should  be 
given  to  the  responsibilities  for  data  input  from  each  participant,  so  that  a 
MAM  administrator  will  contribute  only  the  data  for  which  he  is  responsible. 
Even  so,  AMCs  automated  database  integration  mechanisms  should  not  accept  data 
that  does  not  conform  to  these  principles: 

1.  Deficiency  related  data  comes  from  the  deficiency  manager  only. 

2.  System  related  data  comes  from  the  system  manager  only. 

3.  RDTE  related  data  comes  from  the  MSC  through  the  RDA  database  only. 

4.  Other  workpackage  data  comes  from  the  RDTE  project  manager  only. 

There  are  bound  to  be  conflicts  in  the  data  records,  even  after 
conforming  to  these  principles.  Conflicts  in  linkage  files  should  be  resolved 
in  favor  of  the  deficiency  manager  and  then  the  system  manager.  Conflicts  in 
system  files  should  be  resolved  in  favor  of  the  designated  TRADOC  proponent 
for  that  system  (as  indicated  in  the  ssn_tradoc_pro  field). 


F.  FUTURE  CONSIDERATIONS 

AMC  should  give  some  consideration  to  the  eventual  need  for  a  PDIP 
control  file,  since  PDIPs  are  assigned  to  TRADOC  proponents  and  the  direction 
of  our  future  efforts  will  be  more  closely  aligned  with  the  PDIP  structuring 
process . 
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Section  3 


EXTENSIONS  TO  THE  CSS/EMW/SOF  MAMP 


3.1  General 


The  work  required  by  this  Task  Order  directed  the  evolving  MAMP  toward 
addressing  three  new  areas.  First,  the  existing  MAMP  reports  were  modified 
and  the  database  structures  established  to  allow  their  application  to  BRDEC 
management  tasks.  Second,  the  MAMP  program  prioritization  techniques  were 
incorporated  into  a  series  of  new  reports  which  show  the  critical  fiscal 
reprogramming  decisions  which  might  be  made,  and  what  their  likely  impact 
would  be  on  the  executability  of  RDT&E  programs.  Finally,  these  efforts 
culminated  in  a  second  new  series  of  reports,  which  depict  the  consequence  of 
DA  LRRDAP  priority  decisions  and  which  institute  the  MAMP  prioritization  of 
RDT&E  programs  into  the  PDIP  submission  process. 


3.2  BRDEC  MAMP  Reports 

In  keeping  with  the  revised  MAMP  database  structure,  it  is  now  possible 
to  designate  command  names  as  the  control  file  filters.  The  significance  of 
this  is  that  every  MAMP  report  can  be  produced  for  BRDEC  with  no  additional 
programming  required.  What  is  needed  is  an  up-to-date  and  complete  list  of 
all  systems,  projects,  workpackages ,  and  deficiencies  of  interest  to  BRDEC. 
This  list  must  be  maintained  within  the  database,  just  as  are  similar  lists 
for  the  CSS,  EMW,  and  SOF  mission  areas.  Preliminary  BRDEC  control  file  lists 
were  generated  in  June  and  these  have  sufficed  without  modification  to  date. 
However,  this  data  should  be  reviewed  and  updated  if  necessary  to  ensure  that 
the  correct  MAMP  data  is  being  represented  as  pertinent  to  BRDEC. 


3.3  MAMP  Program  Prioritization  Technique 
3.3.1  The  Existing  Prioritization  Technique 

The  methodology  employed  to  rank  order  systems  and  workpackages  in 
the  MAMP  has  been  directed  by  TRADOC.  It  computes  a  score  for  a  system  based 
on  the  Battlefield  Development  Plan  (BDP)  deficiencies  it  supports  and  its 
assigned  contribution  value  to  the  solution  of  each  of  those  deficiencies. 
While  the  linkage  between  systems  and  deficiencies  may  be  proposed  by  the  AMC 
materiel  developer,  the  contribution  values  are  assigned  by  the  TRADOC  mission 
area  representatives.  Values  from  A  to  E  {and  X)  are  assigned.  The  TRADOC 
representative  is  instructed  to  use  no  more  than  one  A  rating  for  each 
deficiency.  A  geometric  progression  is  used  to  translate  the  letter  value 
into  a  numerical  score,  as  follows: 
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Letter 


Weight 


16  points 
8 


The  deficiencies  themselves  are  also  weighted  according  to  their 
numerical  sequence.  This  is  in  keeping  with  the  TRADOC  rationale  for  placing 
the  BDP  deficiencies  in  numerical  order.  BDP  deficiency  number  1  is  more 
important  than  deficiency  number  2,  and  so  on.  The  mathematical 
representation  which  describes  the  relative  value  of  the  deficiency  is: 

Deficiency  Value  =  (500  -  Deficiency  Number)  /  500 

This  places  the  deficiency  value  in  the  range  between  1.0  and  0.0  (so  long  as 
the  deficiency  numbers  do  not  exceed  500) .  Other  formulations  have  been 
proposed  which  have  provided  a  greater  relative  value  to  lower  deficiency 
numbers,  but  these  have  been  shown  to  have  only  a  marginal  impact  on  the 
system  rank  ordering  results  obtained  in  actual  test  samples. 

A  system  score  is  computed  as  the  product  of  the  deficiency  value 
times  the  contribution  weighting,  summed  over  all  deficiencies  it  supports: 

System  Score  =  E  Contribution  Weight  x  Deficiency  Value 

The  higher  the  system  score,  the  more  important  it  is  to  the  solution  of  the 
Army's  BDP  deficiencies. 

Workpackage  scores  are  computed  in  a  similar  fashion,  building  on 
the  computed  system  scores.  Each  workpackage  is  rated  as  to  its  significance 
to  the  fielding  of  a  system.  The  AMC  materiel  developer  assigns  this 
criticality  factor,  a  number  1  through  5,  with  the  limitation  that  a 
workpackage  can  be  rated  a  1  (most  critical)  against  only  one  system.  The 
weightings  associated  with  each  factor  are  as  follows: 


Factor 


Weight 


10  points 
5 

2.5 

1.25 

0 


The  workpackage  score  is  computed  as  the  product  of  the  system  score 
times  the  criticality  weighting,  summed  over  all  systems  it  supports: 

Workpackage  Score  =  E  Criticality  Weight  x  System  Score 

The  higher  the  workpackage  score,  the  more  important  it  is  to  the  development 
of  systems  which  solve  BDP  deficiencies. 
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3.3.2 


Criticism  of  the  Existing  Prioritization  System 


The  above  technique  for  rank  ordering  systems  and  workpackages  has 
received  a  lot  of  valid  criticism.  In  general  terms,  this  criticism  focuses 
on  the  following  aspects: 

(1)  The  BDP  itself  is  insufficient.  It  has  an  inherently  short  range  of 
view  of  Army  needs  and  is  thus  inappropriate  for  application  to  all  tech  base 
activities.  It  focuses  entirely  on  the  tactical  battlefield  at  Corps  level 
and  below,  and  thus  entirely  ignores  the  Army's  significant  activities  in  the 
theater  communications  zone,  in  the  Continental  United  States,  and  in 
strategic  defense.  The  deficiencies  themselves  are  rank  ordered  in  a  quasi¬ 
political  process  which  raises  doubts  as  to  the  objective  value  of  the  ranking 
or  its  suitability  for  long  term  RDT&E  planning. 

(2)  The  computation  technique  is  flawed.  Some  other  scheme  should  be 
used  to  translate  the  deficiency  numbers,  contribution  values,  and  criticality 
factors  into  a  quantitative  measure  of  the  virtue  of  a  system  or  workpackage. 
In  particular,  the  existing  technique  gives  too  much  value  to  systems  which 
support  multiple  deficiencies  and  to  workpackages  which  support  multiple 
systems,  with  too  small  regard  for  the  importance  of  that  support. 

(3)  The  assignment  of  contribution  values  and  criticality  factors  is 
flawed.  The  control  process  for  assigning  these  values  and  factors  is  too 
easily  circumvented,  and  thus  the  system  and  workpackage  scores  can  be  easily 
manipulated  to  the  detriment  of  competing  programs. 

(4)  The  resolution  of  this  technique  is  inadequate.  A  prioritization 
scheme  based  on  the  BDP,  because  of  its  limited  scope,  is  inherently  unable  to 
make  fine  distinctions  between  competing  programs.  It  is  only  suitable  for 
coarse  comparisons  of  program  value.  A  knowledgeable  manager  must  review  the 
results  and  apply  his  expert  judgement  to  adjust  the  computed  rank  ordering. 
It  is  difficult  to  imagine  any  scheme  based  on  reasonable  and  economically 
obtained  data  that  will  supplant  this  managerial  function. 

3.3.3  Potential  for  Enhancement 


There  are  numerous  improvement  efforts  which  might  be  undertaken  to 
address  these  criticisms.  In  particular,  a  revised  computational  technique 
might  be  proposed  which  uses  the  same  input  data,  yet  eliminates  some  of  the 
bias  of  the  method  toward  systems  which  support  multiple  deficiencies  and 
workpackages  which  support  multiple  systems.  Any  revised  technique  would  have 
to  be  demonstrated  to  TRADOC  and  be  approved  by  them  for  use  in  the  MAMP 
system. 


Attempting  to  make  the  methodology  more  comprehensive  is  probably 
unworkable.  The  BRDEC  experience  with  the  "goal  programming"  method 
illustrates  the  actual  difficulty  in  obtaining  objective  data  for  use  in  the 
method,  and  the  (un) satisfying  realization  that  after  all  the  systematic 
analysis  is  performed,  human  managerial  judgement  cannot  be  dispensed  with. 
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Instead,  the  role  of  the  knowledgeable  manager  could  be  reinforced 
by  having  the  MAMP  system  provide  a  ready  source  of  data  in  a  consistent 
format.  This  will  not  be  an  easy  task,  because  no  small  amount  of  data  can 
adequately  represent  the  virtue  or  complexity  of  a  program  effort.  The 
current  BRDEC  briefing  presentation  format  for  programs  (FOE  matrix, 
executability  charts,  milestone  charts)  is  an  appropriate  method  for 
illustrating  and  initiating  the  discussion  of  substantive  matters. 
Specialized  MAMP  reports  should  be  tailored  to  match  these  standard  formats 
and  to  provide  backup  materials  should  more  detailed  discussions  be  required. 
The  existing  reports  which  illustrate  the  impact  of  key  fiscal  reprogramming 
actions  can  be  enhanced  and  employed  as  a  decision  aid. 


3.4  MAMP  Relationship  to  the  LRRDAP 

The  relationship  of  the  MAMP  to  the  DA  Long  Range  Research  Development 
and  Acquisition  Plan  (LRRDAP)  has  not  yet  been  formalized.  But,  the  MAMP  has 
been  directed  to  proceed  in  the  direction  of  supporting  the  LRRDAP  process. 
Much  of  the  recent  innovative  work  in  the  MAMP  has  focused  on  developing  and 
evaluating  usable  tools  for  this  effort.  This  effort  is  not  yet  complete. 
The  reports  which  have  been  developed  need  additional  definition  and 
refinement  to  ensure  that  they  are  responsive  and  accurate. 

The  responsibility  for  submitting  materiel  development  input  to  the 
LRRDAP  rest  with  TRADOC.  In  preparation  of  Program  Development  Increment 
Packages  (PDIPs) ,  TRADOC  consults  with  AMC  to  establish  the  RDT&E  schedule  and 
resource  requirements  for  the  materiel  development  initiative.  The  process  of 
preparing  requirements  documents  independently  and  continuously  parallels  this 
effort  to  ensure  that  the  materiel  development  programs  are  responsive  to  Army 
needs.  In  what  has  been  an  annual  submission  to  DA,  TRADOC  develops  new 
PDIPs,  revises  existing  PDIPs  if  necessary,  and  establishes  its  recommendation 
for  the  relative  priorities  for  these  PDIPs. 

DA  considers  all  PDIPs  submitted,  along  with  its  funding  guidance  from 
DoD,  and  applies  its  own  judgement  in  the  rank  ordering  of  the  PDIPs.  These 
are  published  as  the  DA  LRRDAP.  3ased  on  the  rank  order,  a  particular  PDIP  is 
placed  in  a  funding  category  (e.g.,  'at  risk',  'unfunded',  'high  priority')  to 
describe  its  likelihood  of  actually  being  funded.  The  whole  of  this  process 
is  well  beyond  the  limited  scope  of  this  report.  It  is  extremely  complex, 
with  many  external  factors  that  can  significantly  alter  the  PDIP  structures 
and  priority  recommendations  submitted  by  TRADOC. 

The  key  fact  is  that  the  MAMP  can  contribute  substantially  to  the 
development  of  PDIPs  by  providing  the  detailed  information  concerning  RDT&E 
programs.  As  an  AMC  planning  document,  the  MAMP  shows  the  program  schedules 
and  resource  requirements  as  AMC  sees  them.  It  forces  close  AMC  coordination 
with  the  TRADOC  representatives  who  are  charged  with  preparing  the  PDIPs. 
Since  it  uses  the  TRADOC  prioritization  algorithms  to  rank  order  the  RDT&E 
efforts,  it  can  be  used  to  predict  in  advance  the  relative  ranking  that  TRADOC 
will  assign.  In  a  series  of  new  specialized  reports,  the  MAMP  data  can  be 
presented  in  PDIP  format,  thus  relieving  the  TRADOC  action  officers  of  much  of 
the  collation  and  assembly  work  entailed  in  preparing  the  PDIPs. 
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Other  MAMP  current  reports  also  depict  the  consequences  of  DA  PDIP 
priority  decisions.  By  comparing  the  DA  priorities  with  the  results  obtained 
using  the  TRADOC  algorithm,  inconsistencies  in  the  DA  funded  RDT&E  program  can 
be  easily  spotted.  These  inconsistencies  could  be  visible  in  non-executable 
development  programs,  or  in  insufficient  funding  for  programs  that  address 
high  priority  Army  needs.  The  appropriate  Mission  Area  Manager  or  Commander 
can  use  this  knowledge  to  assist  him  in  making  reprogramming  recommendations, 
and  to  visualize  the  consequences  of  reprogramming  actions. 
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Section  4 


CONCLUSIONS  AND  RECOMMENDATIONS 


4.1  Conclusions 

(1)  The  usefulness  of  the  current  MAMP  database  to  the  needs  of  BRDEC  is 
somewhat  limited.  The  database  does  not  currently  contain  a  complete  and 
accurate  list  of  the  systems,  projects,  workpackages,  and  deficiencies  of 
interest  to  the  command.  A  preliminary  list  has  been  compiled  but  not 
validated.  "Belvoir  control  files"  need  to  be  maintained,  just  as  are  the 
three  mission  area  control  files.  This  maintenance  is  not  automatic,  but 
requires  careful  attention  and  managerial  judgement.  Without  these  control 
files,  BRDEC  will  get  relatively  little  out  of  the  MAMP  system  in  the  way  of 
validated  and  comprehensive  reports. 

(2)  Rigorous  procedures  need  to  be  instituted  across  all  MAMP  sites  to 
ensure  that  only  good  data  is  retained  within  the  system.  The  actions  of  AMC 
in  adopting  BRDEC 's  recommendation  concerning  this  issue  is  laudable,  and 
initial  procedures  were  established  promptly.  This  is  indicative  of  the  rapid 
advance  in  the  level  of  sophistication  and  detail  of  the  AMC  MAMP  software. 

(3)  Better  hands-on  operator  training  in  the  use  of  the  AMC  MAMP 
software  is  required  before  that  software  will  be  widely  accepted.  The 
existing  documentation  is  inadequate,  and  since  the  system  software  is 
changing  so  fast  the  documentation  is  unlikely  to  catch  up  any  time  soon.  The 
training  should  also  stress  the  ability  of  the  MAMP  sites  to  develop  their  own 
unique  reports  to  support  their  unique  requirements. 

(4)  The  data  contained  in  the  MAMP  database  requires  a  lot  of  work  to 
assemble  and  maintain.  The  quality  control  functions  require  a  significant 
degree  of  knowledgeable  high  level  attention.  The  MAMP  system  does  not  invent 
the  data.  Instead,  human  beings  type  the  data  into  one  of  the  many  computers 
in  the  system.  As  a  result,  the  data  in  the  database  may  not  always  be 
correct  but  it  does  accurately  reflect  what  was  entered  into  it. 

(5)  The  entire  MAMP  system  (database  and  reports)  structure  needs  to  be 
rethought  from  the  perspective  of  the  final  objectives.  The  MAMP  objectives 
are  to  support  the  development  of  a  LRRDAP  responsive  to  the  stated  needs  of 
the  Army  and  to  rationally  allocate  available  resources  to  high  priority 
programs.  To  this  end,  the  PDIP  related  database  structure  needs  to  be 
stronger,  to  include  PDIP  control  files,  so  that  tighter  fiscal  accountability 
within  mission  areas  can  be  maintained. 

(6)  The  MAMP  prioritization  methodology  might  require  additional 
attention.  It  is  uncertain  whether  a  more  detailed  and  comprehensive 
methodology  would  yield  any  better  results.  The  goal  programming  model 
provides  a  nice  contrast  to  the  MAMP  technique,  and  proves  that  intricate 
approaches  to  prioritization  have  many  drawbacks.  No  matter  what  technique  is 
employed,  AMC  decision  makers  will  retain  their  prerogative  to  override  any 
computer  algorithm  to  ensure  that  critical  Army  programs  are  continued. 
Although  there  are  some  fundamentally  different  prioritization  schemes  that 
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might  be  considered  more  "fair",  it  is  TRADOC's  decision  as  to  which 
methodology  to  use  in  the  MAMP.  BRDEC  can  explore  and  recommend  alternatives 
as  it  sees  fit. 

(7)  The  greatest  potential  for  the  MAMP  is  the  close  cooperation  it 
engenders  between  the  AMC  materiel  developer  and  the  TRADOC  combat  developer 
in  establishing  goals  and  recommending  programs  to  DA.  In  many  cases,  there 
has  been  insufficient  communication  between  these  parties.  The  MAMP  provides 
a  formal  mechanism  and  a  visible  product  of  that  communication  which  is  less 
demanding  than  the  preparation  of  requirements  documents.  As  a  planning  tool, 
the  MAMP  excels  in  visualizing  program  structure  and  resource  requirements  for 
the  future. 

(8)  The  MAMP  can  also  be  used  to  augment  the  decision  making  process  for 
allocating  and  reprogramming  committed  RDT&E  resources.  It  can  recommend 
actions  that  are  responsive  to  the  BDP ,  and  it  can  illustrate  the  consequences 
of  decisions  in  terms  of  program  executability  and  fiscal  balance. 

4.2  Recommendations 


(1)  BRDEC  should  establish  a  specific  responsibility  for  ensuring  that 
the  BRDEC  interests  in  the  MAMP  database  are  appropriately  represented.  This 
should  include  the  specification  and  maintenance  of  "Belvoir  Control  Files" 
and  supervisory  quality  control  functions  for  BRDEC  data. 

(2)  BRDEC  should  continue  to  present  recommendations  for  new  reports  and 
procedures  to  be  instituted  into  the  AMC  MAMP.  AMC  has  shown  a  willingness  to 
receive  such  recommendations  and  to  act  upon  them.  In  every  case  they  have 
extended  and  improved  upon  the  original  recommendation.  This  should  include 
structural  changes  to  the  database  to  make  the  system  more  responsive  to  the 
PDIP  submission  process. 

(3)  Quality  control  functions  for  the  MAMP  database  should  be  dispersed 
as  much  as  possible.  The  directorate/program  manager  providing  the  data 
should  be  reviewing  its  own  submissions.  This  may  be  accomplished  by  using 
data  entry  forms  and  screens,  published  examples  and  standards  for  quality 
data,  and  automated  quality  control  audits.  The  distribution  of  MAMP  data  to 
the  originators  for  use  on  personal  computers  should  also  be  explored  as  a 
means  to  have  the  data  scrubbed. 

(4)  The  specification  of  a  'fair'  prioritization  algorithm  should  be 
left  to  TRADOC.  The  MAMP  should  be  able  to  employ  TRADOC  internal  procedures 
for  establishing  program  priority.  Extensions  or  deviations  from  this 
algorithm  which  are  responsive  to  the  resource  allocation  decision  within  AMC 
should  be  pursued  and  used  independently. 
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APPENDIX  A 


MAMP  DATABASE  STRUCTURE 


This  Appendix  describes  the  file  structure  of  the  MAMP  database.  Files 
are  categorized  as  either  "temporary”  or  "permanent".  Permanent  files  contain 
original  data,  while  temporary  files  are  periodically  rebuilt  from  the 
permanent  data  to  assist  in  the  running  of  the  ACE  reports.  The  files  have 
been  further  classified  according  to  their  function: 


Permanent : 


Temporary: 


Data  Type  Files 

Control  Files 

Primary  Data  Files 

RDA  Database  Derived  Files 

CSS/EMV/SOF  MAMP  Specific  Files 

RDA  Funding  Rollup  Files 
Periodically  Updated  Files 
ACE  Report  Preprocessing  Files 


A. 1  Permanent  Data  Files 
A. 1.1  Data  Type  Files 

These  files  contain  coded  information  regarding  major  data 

categories  of  interest  to  the  MAMP  system.  They  should  not  be  modified  by  an 
individual  MAMP  site,  since  it  is  critical  that  the  codes  all  represent  the 
same  data  meainings  throughout  the  MAMP  system.  The  "acq"  file  defines  what 
the  acquisition  code  numbers  mean  (e.g.,  base  case,  type  classified, 
development,  etc.).  The  "ctl"  file  defines  what  the  control  code  numbers  mean 
f  (e.g.,  TRADOC  Mission  Area,  DA  Mission  Area,  MSC,  or  Flag). 


file  acq 


permission  all 


field  acq_code 
field  ac q_ty  p e 
field  acq_stt 


type  integer 
type  char  30 
type  char  4 


data  record  length 
number  of  records 
number  of  indexes 
acq_code 


36 

13 

1 

duplicates  not  allowed 


'ile  ctl 


permission  all 


field  ctl _c ode 
field  c  t l_ty pe 
field  ctl_idx 

c  1 1  _c  a  d  e , 


c  1 1 _t  y  p  e 


type  integer 
type  char  ZO 
type  composite 


data  record  length 
number  of  records 
number  of  indexes 
ctl_code 
c  1 1 _t  y  p  e 
ctl_idx 


22 

S 

3 

duplicates  not  allowed 
duplicates  not  allowed 
duplicates  not  allowed 
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A. 1.2 


Control  Files 


The  control  files  indicate  which  data  is  pertinent  to  each  mission 
area  or  command.  The  control  files  are  used  to  sift  the  large  MAMP  database 
and  extract  only  that  data  desired  for  any  particular  report.  Control  files 
currently  exist  for  deficiencies,  projects,  systems,  and  workpackages.  Each 
control  file  has  a  similar  structure,  with  a  code  and  name  field,  to  allow  a 
specific  item  to  be  controlled  in  more  than  one  mission  area  or  by  more  than 
one  command. 


file  defctl 

field  del _c ode 
field  dcl_name 
field  dcljef 
field  d  c  1  _i  d  x 

del  code,  del  name,  del 


permission  all 

type  integer 
type  char  IS 
type  integer 
type  composite 
def 


data  record  length 
number  of  records 
number  of  indexes 
d  c  1  _c  o  d  e 
d  c  1  _d  e  f 
dc l_i d  x 


16 

189 

3 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 


file 

pr  jctl 

field 

p  c  1  _c  o  d  e 

type 

integer 

field 

pci _name 

type 

char  12 

field 

pc l_cmd 

type 

char  12 

field 

p  c  1  _c  a  t 

type 

char  3 

field 

pcl_subcat 

type 

char  4 

field 

pc l_pe 

type 

char  5 

field 

pc l_p  r o  j 

type 

char  4 

field 

p  c  l_i  d  x 

type 

c  omp  os i t e 

pcl_cmd.  pcl_cat. 

pc l_subcat. 

pcl_pe,  pc 

data  record  length  46 

number  of  records  209 

number  of  indexes  1 

pcl_idx  duplicates  allowed 
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file  line t 1 


p  ermi ss i on  all 


field  s  c  1  _c  o  d  e 
field  scl_name 
field  sc l_s  sn 
field  sc l_i d  x 


scl_code.  scl_name,  icl.iin 


type  integer 
type  char  12 
type  char  6 
type  composite 


data  record  length 
number  of  records 
number  of  indexes 
s  c  1  _c  o  d  e 
scl.isn 
sc  lid  x 


990 

3 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 


file  uikpctl 

field  wcl_code 
field  wcl_name 
field  wcl_cmd 
field  wcl_cat 
field  wcl_subcat 
field  wcl_pe 
field  wcl jjroj 
field  wcl_task 
field  wcl_wkp 
field  wclidx 


permission  all 


type  integer 
type  Char  12 
type  char  12 
type  char  3 
type  char  4 
type  char  S 
type  char  4 
type  char  9 
type  char  7 
type  composite 


wcl_cmd.  wcl_cat.  wcl_subcati  wcl_pe<  wcl_proj.  wcl_task.  ucl_ui»P 
field  wcl_sys_idx  type  composite 

wcl_code.  wcl_name.  wcl_cmd»  wcl_cat.  wcl_pe.  wcl _proj.  wcl_task.  wcl_wkp 


data  record  length 
number  of  records 
number  of  indexes 
wc l_id  x 
wc l_sy  s_i d  x 


62 

1840 

2 

duplicates  allowed 
duplicates  not  allowed 
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A. 1.3 


These  files  contain  the  major  MAMP  user  entered  data.  They 
generally  define  the  deficiencies  and  systems  in  the  database,  while 
workpackage  related  data  is  generally  derived  automatically  from  the  RDA 
database.  The  MAMP  user  should  confine  his  data  entry  to  these  files  (as  well 
as  the  control  files)  as  much  as  possible. 


file  assn 

field  a  s  s  n  _s  s  n 
field  assn_assoc_ssn 
field  assn_idx 

a  s  s  n  _s  s  n ,  assn_assoc_ssn 


permission  all 

type  char  6 
type  char  6 
type  composite 


data  record  length 
number  of  records 
number  of  indexes 
assn_ssn 
assn_id  x 


12 

470 

2 

dup 1 icates 
dup 1 icatcs 


all  owed 
not  allowed 


file  def 


permission  all 


field  def_def 
field  def_da_ma 
field  def _tradoc_ma 
field  def_type 
field  def _d esc 
field  def _c lass 


type  integer 
type  char  3 
type  char  3 
type  char  16 
type  char  600 
type  char  1 


data  record  length  623 
number  of  records  0 
number  of  indexes  1 

def_def  duplicates  not  allowed 
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file  Irrdp 


permission  ell 


field 

Irrdp  _ssn 

type 

char  6 

field 

lrrdp_title 

tgpe 

char  60 

field 

Irrdp  _pdip 

type 

char  6 

field 

lrrdp_incrpr i 

type 

float 

field 

Irrdp  _procfl 

type 

long 

field 

lrrdp_proCf2 

type 

long 

field 

Irrdp  _proc  f3 

type 

long 

field 

lrrdp_procf4 

type 

long 

field 

Irrdp  _procf5 

type 

long 

field 

Irrdp  _proC  f 6 

type 

1  ong 

field 

lrrdp_procf7 

type 

long 

field 

lrrdp_procf8 

type 

long 

field 

Irrdp _pr oc  f9 

type 

long 

field 

Irrdp  _procflO 

type 

long 

field 

Irrdp  _procfll 

type 

long 

field 

Irrdp  _pr oc  f  12 

type 

long 

field 

Irrdp  _pr oc  f  13 

type 

long 

field 

Irrdp _procfl4 

type 

long 

field 

Irrdp  _jj  roc  f  1  3 

type 

long 

field 

1  r  r  d  p  _p  r  o  c  f  1 6 

type 

long 

field 

Irrdp  __sys_idx 

Irrdp _ssn.  Irrdp _p dip 

type 

composite 

data  record  length 
number  of  records 
number  of  indexes 
lrrdp_ssn 
Irrdp _sy  s_i d  x 


140 

3169 

2 

duplicates  allowed 
duplicates  not  allowed 


file  ssn  permission  all 


field 

ssn_ssn 

type 

char 

6 

field 

ssn_acg_code 

type 

integer 

field 

ssn_c lass 

type 

char 

1 

field 

ssn_desc 

type 

char 

600 

field 

ssn_req_doc  1 

type 

char 

6 

field 

s  s  n  _r  e  q,_d  o  c  2 

type 

char 

6 

field 

ssn_reg_doc3 

type 

char 

6 

field 

ssn_amc_msc 

type 

char 

12 

field 

ssn_com_l ine 

type 

char 

10 

field 

ssn  _f  ami ly 

type 

char 

10 

field 

ssn_x  f uncarea 

type 

char 

10 

field 

ssn_amc_mgr 

type 

char 

12 

field 

ssn_tradoc  _pro 

type 

char 

3 

field 

ssn_tradoc_ma 

type 

char 

3 

field 

s  sn_da_ma 

type 

char 

3 

field 

ssn_bdp 

type 

integer 

field 

ssn_r ea  1 

type 

integer 

field 

s  sn_no_de  f 

type 

integer 

field 

s  sn_sy  s_sum_i  d  x 

type 

c  omp  o  s i te 

ssn_amc_mgr,  ssn_ssn 

field 

ssn_stream_sum_idx 

type 

comp o  s i te 

ssn_amc_mgr.  s sn_ac g_c od e . 

ssr\ 

_ssn 

fie  Id 

ssn_com_sum_id  x 

compos i te 

ssn  amc  mpr,  ssn  com  line,  ssn  ssn 


696 

2186 

3 

duplicates  not  allowed 
duplicates  allowed 
duplicates  not  allowed 
duplicates  not  allowed 
duplicates  not  allowed 


data  record  length 
number  of  records 
number  of  indexes 
ssn_ssn 
ssn_ amc_mgr 
ssn_sg  s_sum_i d  x 
ssn_s  tr eam_sum_i d  x 
ssn  com  sum  idx 
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file  ssndef 


permission  all 


field 

field 

field 

field 

field 

field 

field 


ssndef _ssn 
ssndef_def 
s  sn d  e f _c  on  t _va 1 ue 
ssndef  _acq._c  ode 
ssndef _sys_sum_id  x 
ssndef_ssn.  ssndef_def 
ssndef _def_sum_idx 
ssndef _def.  ssndef _acq_ 
ssndef _def_cont_idx 
ssndef  ssn.  ssndef  def. 


type  char  6 
type  integer 
type  char  1 
type  integer 
type  composite 

type  composite 
code.  s snde f _c ont_va 1 ue. 
type  composite 
s sndef_cont  value 


ssndef  ssn 


data  record  length 
number  of  records 
number  of  indexes 
ssndef _ssn 
ssndef_def 
s  sndef _sy  s_sum_i d  x 
ssndef_def_sum_id  x 
ssndef  def_cont  idx 


11 

2558 

5 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 
duplicates  not  allowed 
duplicates  not  allowed 


file  ' 

wk  p  sy  s 

p  ermi s  s i on  all 

field 

wk  p  sy  s_cmd 

type 

char  12 

field 

wkpsys_cat 

type 

char  3 

field 

wk  p  sy  s_sub  c  a  t 

type 

char  4 

field 

wkpsys_pe 

type 

char  5 

field 

wkpsys_proj 

type 

char  4 

field 

wk  p  sy  s_tas  k 

type 

char  9 

field 

wk  p  sy  s_wk  p  k  g 

type 

char  7 

field 

wkpsys_ssn 

type 

char  6 

field 

wkpsys_srf 

type 

integer 

field 

wkpsys_idx 

type 

c  omp  o  s i t e 

wkp*y»_cmd.  wkpsys _c at.  wkpsys _subcat»  wkpsys _pe. 
wkpsys _task»  w  k  p  s  y  s k  p  k  g  .  wkpsys _ssn 

wkpsys _proj 

field 

wkpsys_wkpkg_idx 

type 

c  omp  o  s i te 

wkpsys_cmd.  wkpsys_cat.  wkpsys, 
wkpsys_task.  wkpsys_wkpkg 

_subcat,  wkpsys_pe. 

wkpsys _proj 

data  record  length 
number  of  records 
number  of  indexes 
wkpsys_wfcplcg 
wkpsys _ssn 
wk  p  sy  s_i d x 
wkpsys_wkpkg_idx 


52 

10398 

4 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 
duplicates  allowed 
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A. 1.4  RDA  Database  Derived  Files 

These  files  are  loaded  into  the  MAMP  database  from  the  RDA  database. 
This  transfer  is  accomplished  periodically  by  AMC.  This  implies  that  the 
workpackage  funding  data  in  the  MAMP  will  always  be  less  than  fully  current. 
These  files  constitute  a  majority  of  the  bulk  of  the  MAMP  database. 


file 

ac  tua  1 

permi s s  i on 

all 

field 

a  c  t  _c  m  d 

type 

char 

12 

field 

a  c  t  _c  a  t 

type 

char 

3 

field 

act_subcat 

type 

char 

4 

field 

ac  t_p  e 

type 

char 

3 

field 

a  c  t  _p  r  o  j 

type 

char 

4 

field 

act_task 

type 

char 

9 

field 

ac  t_yr 

type 

integer 

field 

ac  t_te  <  t 

type 

char 

600 

field 

ac  t_tas  k 

_i  d  x 

type 

c  omp  o  * i te 

ac  t_cmd . 

a  c  t  _c  a  t . 

ac  _subcat. 

ac  t_p  e 

.  a  c  t  _p  r  o  j , 

act 

_ta  s  k 

field 

a  t_i d  x 

type 

c  omp  os i te 

ac  t_cmd . 

ac  t_ca t . 

act_subcat. 

ac  t_pe 

■.  ac  t_p  r  o  j . 

act 

_task. 

data  record  length 
number  of  record* 
number  of  indexes 
act_task_idx 
act  id i 


639 

1699 

2 

duplicates  allowed 
duplicate*  not  allowed 


file 

flag 

field 

f lag  _cmd 

type 

char  12 

field 

f  1  a  g  _c  a  t 

type 

char  3 

field 

flag_subcat 

type 

char  4 

field 

f  lag_pe 

type 

char  5 

field 

flag_proj 

type 

char  4 

field 

flag _t ask 

type 

char  9 

field 

flag_wkpkg 

type 

char  7 

field 

f lag_name 

type 

char  5 

field 

f  1  a  g  _y  r 

type 

integ  er 

field 

f lag_f und 

type 

long 

field 

flag_wkpkg_idx 

type 

c  omp  o  s i te 

flag_cmd.  flag_cat. 

flag_wkpkg 

field 

f lag_i d  x 

type 

c  omp  o  s i te 

flag_cmd.  flag_cat. 

f lag_wkp  k  g . 

f lag  _name 

permission  all 


f  '  a  g  r 


data  record  length 
number  of  record* 
number  of  indexes 
flag_wkpkg_idx 
f lag_i d  x 


35 

11341 

2 

duplicates  allowed 
duplicate*  not  allowed 
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f i 1  *  plan 


permiss ion  all 


field 

p  lan_cmd 

type 

char  12 

field 

p  1  a  n  _c  a  t 

type 

char  3 

field 

p lan_subcat 

type 

char  4 

field 

p  1  an  j  e 

type 

char  5 

field 

p  lanjro  j 

type 

char  4 

field 

p lan _t ask 

type 

char  9 

field 

p lan_yr 

type 

integ  er 

field 

p lan _t ext 

type 

char  600 

field 

plan _t ask 

_i  d  x 

type 

comp  os i te 

p lan_cmd. 

p lan_cat. 

p lan_subcat 

,  plan_pe. 

plan  _proj, 

p lan_task 

field 

p lan_id  x 

type 

comp  o* i te 

p 1 an_cmd . 

p lan_cat. 

p lan_»ub  cat 

.  plan_pe. 

p  lanjro  j , 

p lan_task 

data  record  length 
number  of  record* 
number  of  indexes 
p lan_tas  k_i d  x 
P lan_id  x 


639 

6803 

2 

duplicate*  allouied 
duplicate*  not  allouied 


file 

pro  j 

permission  all 

I 

field 

pro  J_cmd 

type 

char 

12 

field 

p  r  o  j  _c  a  t 

type 

char 

3 

field 

pro  j_sub  cat 

type 

char 

4 

field 

p  r  o  j  _p  e 

type 

char 

5 

field 

pro  j_no 

type 

char 

4 

field 

pro  j_title 

type 

char 

60 

field 

pro  j_class 

type 

char 

4 

field 

proj_declass 

type 

char 

12 

field 

pro  j_damgr 

type 

char 

4 

field 

p  r  o  j _amcmg  r 

type 

char 

1 

field 

pro  j_pr i 

type 

integer 

field 

proj_bgt_act 

type 

char 

1 

field 

pro  j_tradoc_ma 

type 

char 

3 

field 

pro  j_da_ma 

type 

char 

3 

field 

pro  j _i d  x 

type 

composite 

proj_cmd<  proj_cat< 

proj_*ubcat 

'*  proj_pe»  proj_no 

data  record  length 

118 

number  of 

record* 

716 

number  of 

indexes 

4 

* 

pro j_cmd 

dup 1 icates 

a  1  lowed 

pro j_pe 

dup 1 icates 

a  1  lowed 

p  r  o  j  _n  o 

dup  1  icates 

al lowed 

pro j _ i d x 

dup 1 Icates 

not  allowed 
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I 


f i 1 e  task 


permi ssi on  all 


field 

ta s  k  _cmd 

type 

char 

12 

field 

t  a  s  k  _c  a  t 

type 

char 

3 

field 

task_subcat 

type 

char 

4 

field 

tas  k  _p  e 

type 

char 

5 

field 

tas  k  _pr o  j 

type 

char 

4 

field 

tas  k  _no 

type 

char 

9 

field 

task_corr_proj 

type 

char 

4 

field 

task_corr_task 

type 

char 

9 

field 

task_title 

type 

char 

60 

field 

task_shortt 

type 

char 

16 

field 

ta  s  k  _r  e  q, _ d  oc 

type 

char 

5 

field 

tas  k_r eq_da  t e 

type 

char 

4 

field 

tas  k  _lab 

type 

char 

12 

field 

task_tradoc_ma 

type 

char 

3 

field 

task  _d  a_ma 

type 

char 

3 

field 

tas  k  _i d  x 

type 

comp  o  s i te 

t  a  s  k  _c  m  d ,  task _c at. 

tas  k_subcat 

task^pe 

task_proj.  task_no 


data  record  length 
number  of  records 
number  of  indexes 
task  _cmd 
t  a  s  k  _n  o 
tas  k  _i d  k 


153 

2566 

3 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 


file 

wkdesc 

field 

w  k  d_cmd 

type 

char 

12 

field 

w  k  d  _c  a  t 

type 

char 

3 

field 

wkd_subcat 

type 

char 

4 

field 

wk  d  _p  e 

type 

char 

5 

field 

wk  d_p  r  o  j 

type 

char 

4 

field 

wk  d  _tas  k 

type 

char 

9 

field 

wkd_wkpkg 

type 

char 

7 

field 

wkd  _te  x  t 

type 

char 

600 

field 

wk  d_id  x 

wkd_cmd.  wkd_cat. 

type 

w  k  d  _w  k  p  k  g 

composite 

permission  all 


data  record  length 
number  of  records 
number  of  indexes 
wk d  id  i 


644 

3723 

1 

dup 1 icates 


not  all  owe  d 


fils  w k p k  g 


p  erm i s  s i on  all 


field 

wkp  k  g  _c  m  d 

type 

char  12 

field 

wkpkg^cat 

type 

char  3 

field 

wkpkg_subcat 

type 

char  4 

field 

uf  k  p  k  g  _j)  e 

type 

char  5 

field 

wkp  k  g  _p  r  o  j 

type 

char  4 

field 

wk  p  k  g_tas  k 

type 

char  9 

field 

ui  k  p  k  g  n  o 

type 

char  7 

field 

wkpkg_pri 

type 

integer 

field 

wk p  k g _amc p r i 

type 

integer 

field 

wkpkg^ lab 

type 

char  12 

field 

wkpkg__title 

type 

char  60 

field 

wkp  kg__shortt 

type 

char  16 

field 

wkpkg_-trans_date 

type 

char  4 

field 

w  k  p  k  g  __d  a  __ma 

type 

char  3 

field 

wkpkg__tradoc  _ma 

type 

char  3 

field 

wk  p  k g_sg  s  terns 

type 

integer 

field 

wkpkg^pdip 

type 

char  6 

field 

wkpkg^class 

type 

char  1 

field 

ui  k  p  k  g  _amc  _a  d  j 

type 

long 

field 

w  k  p  k  g  __inam_a  d  j 

type 

long 

field 

wkp  kg _s core 

type 

double 

field 

wkpkg— ranking 

type 

long 

field 

uikokg_proj_idx 
wkpkg_cmd-  wkpkg_cat. 

type  c  Qmp o  s i t  e 

wkpkg_subcat,  w  k  p  k  g  _p  e .  wkpkg_proj 

field 

w  k  p  k  g __ w kpsgs_idx 
wkpkg^cmd*  wkpkg_cat, 

type  c  omp  o site 

wkpkg_subcat,  wkpkg_pe,  wkpkg_proj,  wkpkg_task 

field 

wk  p  k  g  _wk  p  __sum_i  d  x 
uikpkg^cmd.  wkpkg_pe. 

type 

wkpkg_pro. 

c  omp  os i te 

|.  wkpkg_task,  wkpkg_no 

field 

wk  p  k  g  _no_i d  x 
wkpkg_cfr.d.  wkpkg_cat» 

type 
w  k  p  k  g  _n  o 

comp  o  s i t e 

w  k  p  k  g  _n  o 


data  record  length 
number  of  records 
number  of  indexes 
uikpkg_proj 
w  k  p  k  g  ^n  o 

w  k  p  k  g _ p  dip 

wkpkg_proj_idx 
wkpkg_wkpsys_idx 
wk  p  k  g  _wk  p_sum_idx 
wkPk9_n°_l<l* 


175 

4334 

7 

duplicates 
duplicates 
dupl  icates 
dup 1  icates 
duplicates 
duplicates 
dupl  icates 


all  owed 
a  1  lowed 
all  owed 
all  owed 
not  all  owe  d 
not  all  owed 
not  allowed 
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file  wk  p  k  g  f und 


p  ermi ss ion  all 


field 

wkp  f_cmd 

type 

char  12 

field 

w  k  p  f  _c  a  t 

type 

char  3 

field 

wkpf_subcat 

type 

char  4 

field 

wk  p  f  _p  e 

type 

char  5 

field 

wk  p  f  _p  no  j 

type 

char  4 

field 

wkpf_task 

type 

char  9 

field 

wkpf_wkpkg 

type 

char  7 

field 

w  k  p  f  _g  r 

type 

integer 

field 

wkpf  quid 

type 

long 

field 

wkp  f_f und 

type 

long 

field 

wkp  f _un f  un d 

type 

long 

field 

wkpf_wkpkg_idx 

type 

composite 

wkpf_cmdi  wkpf_cat. 

wkpf_wkpkg 

field 

wk  p  f _i d  x 

type 

c  omp  o  s i te 

wkpf_cmd,  wkpf_cat< 

wkpf_wkpkg. 

wk  p  f _yr 

data  record  length 
number  of  records 
number  of  indexes 
w  k  p  f  _w  k  p  k  g  _i  d  x 
wk  p  f  _i  d  x 


58 

15736 

2 

duplicates  allowed 
duplicates  not  allowed 


file 

wkstmt 

field 

w  k  s  _c  m  d 

type 

char 

12 

field 

wk  s_ca  t 

type 

char 

3 

field 

wks_subcat 

type 

char 

4 

field 

w  k  s  _p  e 

type 

char 

5 

field 

w  k  s  _p  r  o  j 

type 

char 

4 

field 

wk  s_ta  s  k 

type 

char 

9 

field 

wks_wkpkg 

type 

char 

7 

field 

w  k  s  _y  r 

type 

integ  er 

field 

wk  s_te  x  t 

type 

char 

600 

field 

wks_wkpkg_idx 

type 

c  omp  o  s i te 

wks_cmd.  w  k  s  _c  a  t . 

uj  k  s  _w  k  p  k  g 

field 

w  k  s  _  i  d  x 

type 

c  omp  o  s i te 

wks_cmd.  w  k  s  _c  a  t  • 

wks_wkpkg.  wks_yr 

data 

record  length 

646 

permission  all 


number  of  records 
number  of  indexes 
wks_wkpkg_idx 
wk s  i d  x 


10045 

2 

duplicates  allowed 
duplicates  not  allowed 
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A. 1.5  CSS/EMW/SOF  MAMP  Specific  Files 

Thesa  permanent  files  have  been  created  at  BRDEC  to  specifically 
support  the  submissions  of  the  CSS/EMW/SOF  MAMPs.  They  are  not  present  at 
other  MAMP  sites.  In  the  case  of  the  "com"  and  "lrrdppri"  files,  the  data 
contained  in  them  may  be  absorbed  into  the  AMC  system  (in  which  case  the  data 
will  need  to  be  transferred  and  the  ACE  reports  revised) .  The  other  files 
deal  with  the  shifting  of  deficiency  numbers  from  BDP  85  to  BDP  86,  and  the 
effect  of  potential  realignment  of  LRRDAP  priorities  in  POM  89.  They  will 
quickly  become  outdated. 


file  com 


permission  ell 


field  com_com_line 
field  com_ac q_s tr a t 


type  char  10 
type  char  600 


data  record  length 
number  of  records 
number  of  indexes 
com  com_line 


614 

IS 

1 

duplicates  allowed 


file  def x 


permission  all 


field  d  e  f  x  _8  5 
field  defx_86 
field  def  x_i d  x 

d e f  x _86 ,  def x  83 


type  integer 
type  integer 
type  composite 


data  record  length 
number  of  records 
number  of  indexes 
def x_8S 
def x_86 
def  x  i d  x 


4 

3S6 

3 

duplicates  allowed 
duplicates  allowed 
duplicates  not  allowed 


file 

lrrdppr  i 

field 

lrrdppri _pdip 

type 

char 

6 

field 

lrrdppri_pri 

type 

float 

field 

irrdppri_title 

type 

char 

20 

field 

lrr d  ppr i_trad  oc 

_pr  o 

type 

char 

3 

field 

lrrdppr i_tradoc 

_ma 

type 

char 

3 

field 

lrr dppr i _da_ma 

type 

char 

3 

data 

record  length 

43 

numb  e 

r  of  records 

638 

numb  e 

r  of  indexes 

1 

lrrdp 

pri _p dip 

dup 1 icates 

not 

al Iowa 

id 
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file  pom89 


permission  all 


j 


field  p om89_p dip 
field  pom89_title 
c  i  e  1  d  pom89_pri 
field  pom89_tradoc _pro 
field  p om89_t r ad oc _ma 
field  pom89_da_ma 
field  pomS9_strat 


data  record  length 
number  of  records 
number  of  indexes 
p  om89_p  dip 


type  char  6 
type  char  20 
type  float 
type  char  3 
type  char  3 
type  char  3 
type  char  600 


643 
627 
1 

duplicates  not  allowed 


file  pom89ssn  permission  all 

field  pom89ssn_ssn  type  char  6 

field  p om89s sn_p dip  type  char  6 

field  pom89ssn_pom88  type  char  6 

field  p  omS9s  sn_se  n  type  float 

field  pom69ssn_sys_idx  type  composite 

pom89ssn_ssn,  p om89s sn_pom88 


data  record  length  22 

number  of  records  1264 

number  of  indexes  3 

pom89ssn_ssn  duplicates  allowed 

pom89ssn _p d i p  duplicates  allowed 

pom89ssn_sys_id x  duplicates  not  allowed 
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A.  2  Temporary  Data  Files 


A. 2.1  RDA  Funding  Rollup  Files 

These  files  roll  up  the  funding  data  from  the  RDA  database  into 
consolidated  files  for  easier  access  by  ACE  programs.  The  funding  data  is 
normally  presented  in  the  RDA  and  MAMP  systems  as  individual  records  for  each 
workpackage  and  year.  Thus  a  workpackage  may  have  as  many  as  eight  records  to 
describe  its  funding  stream.  When  an  ACE  report  conducts  a  joining  operation 
on  that  workpackage,  for  example  taking  the  workpackage  description  and 
joining  it  with  its  funding  data,  the  ACE  system  creates  a  copy  of  the 
description  for  each  of  the  eight  funding  years.  This  gets  particularly 
wasteful  when  performing  more  complex  joins  of  deficiencies  to  systems  to 
workpackages  to  funding  years.  And  naturally,  the  ACE  system  bogs  down  in 
managing  the  thousands  of  copies  of  duplicate  data  fields. 

These  files  translate  the  individual  funding  records  into  a  single 
consolidated  record  for  each  workpackage  with  all  eight  years  represented. 
The  flagr  file  allows  for  six  flags  for  each  workpackage.  The  shells 
"wkpfroll"  and  "flagroll"  automatically  build  these  files. 


file  uik  p  f  r 

p  ermi s* i on 

field 

uikp  f  r_cmd 

type 

char  12 

field 

wkpfr_cat 

type 

char  3 

field 

uik  p  f  r_uikp  k  g 

type 

char  7 

field 

iuk  p  f r_basey  r 

type 

integer 

field 

u  k  p  f  r  _g  0 

type 

long 

field 

uikp  f  r_f  0 

type 

long 

field 

uik  p  f  r_uO 

type 

long 

field 

ui  k  p  f  r  _g  l 

type 

long 

field 

uikpfr_f  1 

type 

long 

field 

ink  p  f  r  _u  1 

type 

1  ong 

field 

uikp  f  r  q2 

type 

long 

field 

uikp  f  r_f2 

type 

long 

field 

uikp  f  r_u2 

type 

long 

field 

uikpfr  g3 

type 

long 

field 

uikp  f  r_f  3 

type 

long 

field 

ui  k  p  f  r  _u  3 

type 

long 

field 

uik  p  f  r_g4 

type 

long 

field 

uik  p  f  r_f  4 

type 

long 

field 

uj  k  p  f  r  _u  4 

type 

long 

field 

uikp  f  r_g  3 

type 

long 

field 

uik  p  f  r  _f  5 

type 

long 

field 

uikp  f  r_u3 

type 

long 

field 

uik  p  f  r  _g6 

type 

1  ong 

field 

uik  p  f  r_f  6 

type 

long 

field 

uikp  f  r_u6 

type 

long 

field 

uik  p  f  r  _g  7 

type 

long 

field 

in  k  p  f  r  _f  7 

type 

1  ong 

field 

uikp  f  r_u7 

type 

long 

field 

uik  p  f  r  _uik  p  kg_i  d  * 

type 

c  ompos i te 

uikpfr_cmd,  uikpfr_cat. 

uikp  f  r_uikp  k  g 

data  raeord  length 
number  of  record* 
number  of  inde«e* 
uikpfr_uikpkg_id  * 


124 

3984 

1 

duplicate*  not 


al lowed 
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file  f  lagr 


permi s* ion  all 


field 

f lagr _cmd 

type 

char  12 

>•  field 

flagr_cat 

type 

char  3 

field 

f lagr_wkp  kg 

type 

char  7 

field 

f  lagr_wkp  kg_id  x 

type 

compos i te 

flagr_cmd.  flagr_cat. 

f  lagr  _uik  p  k  g 

•  field 

f  1  a  g  r  1  _n 

type 

char  3 

field 

f  1  a  g  r  1  _0 

type 

long 

'' 

field 

f lagr  1~1 

type 

long 

field 

f lagrl_2 

type 

long 

field 

f lagr 1_3 

type 

long 

field 

f  1  a  g  r  1  _4 

type 

long 

L  field 

f lagr 1_3 

type 

long 

V  field 

f 1  a  g  r 1 _6 

type 

long 

K  field 

f  1  a  g  r  1  _7 

type 

long 

j/, 

f  field 

f  lagr2_n 

type 

char  5 

f 

field 

f lag  r2_0 

type 

long 

‘  field 

f lag  r2_l 

type 

long 

field 

f lagr2~2 

type 

long 

}  field 

f lagr2~3 

type 

long 

I 

field 

f  lagr2_4 

type 

long 

w 

j  field 

f  1  a  g  r  2  _5 

type 

long 

i  field 

f lagr2_6 

type 

long 

field 

f lagr2_7 

type 

long 

1 

field 

f lagr3_n 

type 

char  5 

1 

field 

f lag  r3_0 

type 

long 

field 

f lagr3_l 

type 

long 

field 

f lagr3_2 

type 

long 

i 

field 

f lagr3_3 

type 

long 

1 

field 

f  lagr3_4 

type 

long 

field 

f  lagr3_3 

type 

long 

field 

f 1 agr3_6 

type 

long 

field 

f  lagr3__7 

type 

long 

1 

field 

f  lagr4__n 

type 

char  5 

field 

f lagr4_0 

type 

long 

1  field 

f lagr4_l 

type 

long 

‘  field 

f  lagr4__2 

type 

l  ong 

| 

}  field 

f lagr4_3 

type 

long 

1 

field 

f lag  r4_4 

type 

long 

field 

f lagr4_3 

type 

1  ong 

|  field 

f lagr4_6 

type 

long 

i 

.  field 

f lagr4_7 

type 

long 

1 

field 

f lagr 3_n 

type 

char  3 

field 

f lagr 3_0 

type 

long 

field 

f lagr 3_I 

type 

long 

i 

field 

f lagr5_2 

type 

1  ong 

1 

field 

f lagr3_3 

type 

long 

» 

field 

f lagr3_4 

type 

long 

field 

f lagr3_3 

type 

long 

1 

j  field 

f lagr 3_6 

type 

long 

'  field 

f Iagr3l7 

type 

long 

1 

field 

f lagr6_n 

type 

char  5 

field 

f  lagr6_0 

type 

long 

field 

f  lagr6_t 

type 

long 

I 

field 

f lagr6_2 

type 

long 

f 

field 

f lagr6_3 

type 

long 

field 

f  lag  r6_4 

type 

long 

field 

f  lagr6_3 

type 

l  ong 

| 

field 

f  lagr6_6 

type 

long 

! 

field 

f  lagr6_7 

type 

long 

data  record  length  244 
number  of  record*  631 
number  of  indexes  1 

f legr_u/kpkg_idx  duplicates  not  allowed 
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Periodically  Updated  Temporary  Files 


These  temporary  files  need  to  be  updated  frequently  to  ensure  that 
the  latest  changes  in  the  primary  and  control  permanent  files  are  reflected  in 
the  MAMP  reports.  The  shell  "priority"  automatically  updates  these  files.  It 
takes  approximately  45  minutes  to  run. 


file  ass r 


permission  all 


field  assr_ssn 
field  assr_ssnl 
field  assr_ssn2 
field  assr_ssn3 
field  assr_ssn4 
field  a$sr_ssn5 
field  assr_ssn6 
field  assr_ssn7 
field  assr_ssn8 
field  assr_ssn9 
field  assr_ssnlO 
field  assr_ssnll 
field  assr_ssnl2 
field  assr_ssnl3 
field  assr_ssnl4 
field  assr_ssnl5 


type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 
type  char  6 


data  record  length 
number  of  records 
number  of  indexes 
assr  ssn 


100 

279 

1 


duplicates  not  alloued 


file  hipri 

field  hipri _ssn 
field  h ipri _pd ip 
field  hipri_pri 
field  hipri_ok 
field  hipri _title 
field  hipri _sys_id« 

hipri_ssn.  hipri_pdip 


permission  all 

type  char  6 
type  char  6 
type  float 
type  integer 
type  char  60 
type  composite 


data  record  length 
number  of  records 
number  of  indexes 
h i pr i_ssn 
hipri_pdip 
hlpri_sys_idi 


78 

702 

3 

duplicates  not  alloued 
duplicates  alloued 
duplicates  not  alloued 


r 


file 

p  r  i  or  1 

permi ss ion  all 

field 

priori _ssn_no 

type 

char  6 

field 

priori _nd  ef 

type 

integer 

field 

priori _n a 

type 

integer 

field 

priori _nb 

type 

integer 

field 

priori _nc 

type 

integer 

field 

priori _nd 

type 

integer 

field 

priori _ne 

type 

integer 

field 

priori _nx 

type 

integer 

field 

pr i or l_b 1 

type 

integer 

field 

priori _s core 

type 

float 

data 

record  length 

30 

number  of  records 

656 

number  of  indexes 

1 

priori _ssn^no 

dup 1 icates 

not 

all  owed 

I 


file  pr i or2 

field  prior2_cmd 
field  prior2_cat 
field  prior2_wkpkg 
field  p r i or2_wk p k g_i d x 

prior2_cmd.  prior2_cat< 
field  prior 2_nsys 
field  prior2_hisys 
field  prior2_losys 
field  prior2_score 


type 

char 

12 

p ermi s s i on  all 

type 

char 

3 

type 

char 

7 

type  composite 


prior2_wkpkg 
type  integer 
type  float 
type  float 
type  float 


data  record  length 
number  of  records 
number  of  indexes 
pr i or2_cmd 
prior2_wkpkg_idx 


40 

1033 

2 

duplicates  allowed 
duplicates  not  allowed 


file  unissn 
field  unissn  ssn 


data  record  length 
number  of  records 
number  of  indexes 
unissn _ssn 


type  char  6 

6 

702 

1 

duplicates  not  allowed 


p  ermi ss i on  all 


I 

i 

t 

I 

I 

I 

I 

I 

I 

I 

I 

I 
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file  ssndr o  1 1 


p irnisi ion  ell 


field 

ssnd 

_s  sn 

type 

char  6 

field 

ssnd 

_def  1 

type 

integer 

field 

ssnd 

_c  on  1 

type 

char  1 

field 

ssnd 

_d  ef  2 

type 

integ  er 

field 

ssnd 

_con2 

type 

char  1 

field 

ssnd 

_def3 

type 

integ  er 

field 

ssnd 

_c  on3 

type 

char  1 

field 

ssnd 

_def4 

type 

integer 

field 

ssnd 

_con4 

type 

char  1 

field 

ssnd 

_def  5 

type 

integer 

field 

ssnd 

_c  on5 

type 

char  1 

field 

ssnd 

_def6 

type 

integer 

field 

ssnd 

_con6 

type 

char  1 

field 

ssnd 

_def  7 

type 

integer 

field 

ssnd 

_con7 

type 

char  1 

field 

ssnd 

_def8 

type 

integer 

field 

ssnd 

_c  on8 

type 

char  1 

field 

ssnd 

_ndef 

type 

integ  er 

data  record  length 

36 

number 

of  records 

696 

numb  er 

of  indexes 

1 

s  snd  _s  sn 

duplicates  not  allowed 

file  un iwk  p 


permission  ell 


field 

field 

field 

field 

field 

field 

field 

field 

field 

field 

field 

field 

field 

field 


un i wk  p  _cmd 

un  iwk  p_ca  t 

uniwkp_subcat 

uniwkp_pe 

uniwkp_proj 

uniwkp_task 

uniukp_wkpkg 

uniukp_ssn 

uniwkp_srf 

un iwkp_p  d i p 

un iuk  p  _p  om89 

uniwkp_seq 

un i wk  p_sy  s_i d  x 

uniwkp_ssn>  uniwkp_pdip 

unlwkp_wkpkg_idx 

un  i iuk  p  _cmd  ■  uniwkp_cat- 


type  char  12 
type  char  3 
type  char  4 
type  char  5 
type  char  4 
type  char  9 
type  char  7 
type  char  6 
type  integer 
type  char  6 
type  char  6 
type  float 
type  c  omp  o  s  i  t  e 

type  c  omp  o  s  i  t e 
uniwkp_subcat<  un  iuk  p  je. 


uniwkp_task.  uniwkp_wkpkg 


uniwkp_proj. 


data  record  length  68 

number  of  records  778 

number  of  indexes  9 

uniwkp_ssn  duplicates  allowed 

uniwkp_pdip  duplicates  allowed 

uniwkp_pam89  duplicates  allowed 

un  i  w k  p  _s  y  s _i  d  x  duplicates  allowed 

un i wk p _wk p k g _i d x  duplicates  not  allowed 
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A. 2. 3 


ACE  Report  Processing  Files 


These  temporary  files  are  used  in  the  creation  of  the  more  complex 
ACE  reports.  They  contain  intermediate  data  that  is  used  in  the  preparation 
of  specific  reports  and  is  otherwise  meaningless.  The  file  fundpro  has  the 
deficiency,  commodity,  or  system  funding  data  (separated  by  year,  tech  base  or 
development  category,  and  funded/unfunded  quantities) .  The  file  idxpg 
contains  the  page  numbers  for  each  ssn  discovered  in  the  "sysdollars.out"  file 
by  the  C  program  "readidx". 


fils  fundpro 


permission  ell 


field 

f  p  _d  e  f  i  c 

type 

integer 

field 

f p  _commod i ty 

type 

char  10 

field 

f p_ssn 

type 

char  6 

field 

f  0_tb 

type 

long 

field 

f  l_tb 

type 

long 

field 

f  2_tb 

type 

long 

field 

f  3_tb 

type 

long 

field 

XI 

4-> 

1 

<*■ 

type 

long 

field 

f  5_tb 

type 

long 

field 

f  6_tb 

type 

long 

field 

f  7_tb 

type 

long 

field 

uO_tb 

type 

long 

field 

u  1  _t  b 

type 

long 

field 

u2_tb 

type 

long 

field 

u3_tb 

type 

long 

field 

u4_tb 

type 

1  ong 

field 

u5_tb 

type 

long 

field 

ufe_tb 

type 

long 

field 

u7_tb 

type 

long 

field 

f  0_d  e  v 

type 

long 

field 

f l_dev 

type 

long 

field 

f  2_d  e  v 

type 

long 

field 

f 3_d  ev 

type 

long 

field 

f 4_dev 

type 

long 

field 

f 5_dev 

type 

long 

field 

f 6_dev 

type 

1  ong 

field 

f 7_d  ev 

type 

long 

field 

uO_dev 

type 

long 

field 

ul_dev 

type 

long 

field 

u2_d  ev 

type 

long 

field 

u3_d  ev 

type 

long 

field 

u4_dev 

type 

long 

field 

u3_dev 

type 

long 

field 

u6_d  ev 

type 

long 

field 

u7_dev 

type 

long 

data  record  length 
number  of  records 
number  of  indexes 
f  p  _d  e  f  i  c 
fp_commod ity 
f p_ssn 


150 

6 

3 

duplicates  allowed 
duplicates  allowed 
duplicates  allowed 


file  idxpg 


permission  all 


field  idxpg_ssn 
field  idxpg _no 


type  char  6 
type  integer 


data  record  length 
number  of  records 
number  of  indexes 
idxpg_ssn 


12 

403 

1 

duplicates  allowed 


A-20 


APPENDIX  B 

MISCELLANEOUS  PROCEDURES 


B-l 


The  shell  programs  "priority",  "wkpfroll",  and  "flagroll"  automatically 
update  the  temporary  files  with  the  current  MAMP  system  data.  "Wkpfroll"  and 
"flagroll"  only  need  to  be  executed  once  for  each  update  of  the  RDA  derived 
permanent  files,  specifically  the  workpackage  funding  data  file  and  the  flag 
data  file.  "Priority"  should  be  run  more  frequently,  after  major  changes  to 
the  permanent  files  and  before  running  production  MAMP  reports. 

"Priority"  updates  seven  of  the  temporary  files.  It  received  its  name 
because  at  first  it  only  created  the  system  and  workpackage  BDP  rating  files 
(priori  and  prior2) .  Since  then,  it  has  been  expanded  to  include  the  unique 
controlled  ssn  file  (unissn) ,  the  highest  priority  PDIP  file  (hipri) ,  the 
system  to  deficiency  linkage  rollup  file  (ssndroll) ,  the  associated  ssn  rollup 
file  (assr) ,  and  the  unique  workpackage  to  system  linkage  file  (uniwkp) . 
"Priority"  is  a  convenient  and  easy  way  to  ensure  that  the  temporary  files 
have  been  rebuilt  and  do  reflect  the  current  data  in  the  MAMP  system. 


Aug  4  09: 19  1986  priority  Pag*  1 


cd  /u/revi  eui2/d b 

echo  "see  prloritg. log  for  a  log  of  this  procedure 

dbstatus  manp  «X  apriority,  log 

erase  file  priori 
4 

erase  file  prior2 

y 

erase  file  unissn 

g 

erase  file  hipri 
erase  file  ssndroll 

g 

erase  file  assr 

y 

erase  file  unitukp 

y 

bge 

X 

mv  /u/revieu2/schema'priorl.  k  . 
mv  /u/revieu2/schema/prior2.  k  . 
mv  /u/revieu2/schema/unissn.  k  . 
mv  /u/reviau2/sch*ma/h ipr i.  k  ■ 
mv  /u/revieu2/schema/ssndrol 1.  k  . 
mv  /u/r*vieu2/schema/assr.  k  , 
mv  /u/revieu2/schema/uniwkp.  k  . 
dbbuild  priori,  k  »  priority,  log 

dbbuild  prior2.  k  »  priority. log 

dbbuild  unissn.  k  »  priority. log 

dbbuild  hipri.  k  »  priority. log 

dbbuild  ssndroll.  k  »  priority,  log 

dbbuild  assr.  k  »  priority. log 

dbbuild  uniukp.  k  »  priority,  log 

mv  priori,  k  /u/r evi *w2/sc hema 
mv  prior2.  k  /u/r evi *ui2/s c h ema 
mv  unissn.  k  /u/r  ev i eu/2/s c  h ema 
mv  hipri.  k  Zu/revieu/2/schema 
mv  ssndroll.  k  /u/r *vi*w2/schema 
mv  assr.  k  /u/r  *  vi  *<u2/sch  ema 
mv  uniwkp.  k  /u/r  evi  eu(2/sch  ema 

echo  "building  the  unissn  file” 
informer  .ramp  <CX  »  priority. log 

read  into  a  unique  scl_ssn; 

add  noprompt  unissn  unissn_ssn  ■  a.  scl_ssni 
by* 

X 

echo  "building  the  priori  file" 
acego  . . /neil/priorl  >}  prioritg.log 
dbstatus  manp  «X  »  priority,  log 

load  ascii  priori  from  "priori. out" 
by* 

X 
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Aug  4  09: 19  1986 


priority  Page  2 


echo  "building  the  prior2  file" 
acego  .  .  /neil/prior2  »  priority,  log 
dbstatus  manp  «7.  »  priority,  log 

load  ascii  prior2  from  "prior2. out" 
bye 
X 

echo  "building  the  hipri  file" 
acego  .  .  /neil/hipri  >>  priority,  log 
dbstatus  mamp  «X  >>  priority,  lag 

load  ascii  hipri  from  "hipri. out" 
bye 
X 


echo  "building  the  ssndroll  file" 
acego  .  .  /ne i  1 /s sndr o  1  1  »  priority,  log 
dbstatus  rramp  -OCX  >>  priority,  log 

load  ascii  ssndroll  from  "ssndra 1 1.  out 
bye 
X 


echo  "building  the  assr  file" 
acego  .  .  /ne i  1  / jo inas s r  >>  priority,  log 
dbstatus  manp  «X  »  priority.log 

load  ascii  assr  from  " jo inassr . out” 
bye 
X 


echo  "building  the  uniwkp  file" 
acego  .  .  /neil/tsui  »  priority,  log 

dbstatus  mamp  «X  >>  priority.log 

load  ascii  uniiukp  from  “tsw.  out" 
bye 
X 

/bin/rm  joinassr  out 
/bin/rm  ssndroll  out 
/bin/rm  priori. out 
/bin/rm  priar2  out 
/bin/rm  hipri. out 
/b in/rm  tsu  out 

echo  "all  done  uith  priority  shell” 
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Aug  7  11:19  1986  flagroll  Page  1 


cd  /u/r eview2/d b 

dbstatus  manp  «X  >  flagroll.  log 

erase  file  flagr 

g 

bye 

7. 


mv  .  .  /schema/f lagr.  k  . 

dbbuild  flagr.  k  >>  flagroll.  log 

mv  flagr.  k  .  .  /schema 

acego  .  .  /ne i 1 / x f erf  lag  1986  »  flagroll.  log 

dbstatus  rn.amp  «7.  »  flagroll.log 

load  ascii  flagr  from  "flagr.  out" 

bye 

7. 


/bin/rm  flagr  out 
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cd  /u/revieu2/db 

dbstatus  mamp  «X  >  wkpfr.out 

erase  file  wkpfr 

g 

bye 

X 

mv  .  .  /sch  eor.a/wkp  f  r ,  k  . 

dbbuild  wkpfr.  k  >>  wkpfr.out 

mv  wkpfr.  k  .  .  /schema 

acego  .  .  /ne i 1 /wk p f r o 1 1  1986  >>  wkpfr.  out 

dbstatus  manp  «X  }>  wkpfr.out 

load  ascii  wkpfr  from  "wkpfr.  out" 
bye 
X 

/bin/rm  wkpfr.out 
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B . 2  Shell  Programs  for  Complex  Report  Execution 


Several  of  the  MAMP  reports  are  multi-stage  reports  because  of  their 
inherent  complexity  and  the  limitations  of  the  ACE  programming  system  to 
accept  the  very  large  intermediate  files  they  might  create  as  single-stage 
reports.  The  multi-stage  report  first  executes  a  subordinate  ACE  report, 
generating  some  intermediate  values  of  interest.  Then,  these  values  are 
automatically  read  into  a  temporary  file  which  is  used  by  a  second  ACE  report. 
This  second  report  produces  the  final  output  that  becomes  the  printed 
document . 

The  Deficiency  Summary  (defroll) ,  Deficiency  Funding  Profile  (defpro) , 
and  the  Commodity  Funding  Profile  (compro)  are  the  three  reports  with  this 
complex  multi-stage  execution.  The  shells  defroll,  defpro,  and  defroll,  in 
the  "../shell"  directory,  are  used  to  execute  these  reports.  Each  of  them 
creates  a  temporary  data  set  which  is  loaded  into  the  file  "fundpro",  and  then 
the  main  ACE  report  is  run.  The  calling  sequence  for  these  shells  is: 

expr  [first  pg#]  !  . . /shell/def roll  [pg  letter]  [code]  [name] 

expr  [first  pg#]  !  .. /shell/def pro  [pg  letter]  [code]  [name] 

expr  [first  pg#]  !  . . /shell/compro  [pg  letter]  [code]  [name]  [commodity] 

The  explanation  for  these  calling  sequences  is  contained  in  the  introduction 
to  Appendix  C. 


Aug  7  XO: 24  19Q6  defroll  Page  1 


cd  /u/review2/db 

dbstatus  manp  <<X 
erase  file  fundpro 

b  y  e 
7. 


mv  .  /schema/f undpro.  k  . 
dbbui  Id  fundpro.  k 
mv  fundpro.  k  .  .  /schema 

acego  .  /ne  i  1  /sy spr o  1  *<2>  *<3> 

dbstatus  manp  «% 

load  ascii  fundpro  from  "sgsprol.  out" 

bye 

7. 

/bin/rm  sgsprol.out 

acego  .  /ne i 1 /d ef r o  1 1  *<1>  *t2>  *{3> 
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Aug  7  10:44  1986  defpro  Page  1 


cd  /u/revieu2/db 

db  status  manp  «X 
erase  file  fundpro 

y 

bye 

X 


mv  . . /schema/f undpro.  k  . 
dbbuild  fundpro.  k 
mv  fundpro.  k  .  .  /schema 

acego  .  .  /ne  i  1/def prol  *<2>  *<3> 

dbstatus  nanp  «X 

load  ascii  fundpro  from  “ d e f p r o  1 .  ou t 

bye 

X 


/bin/rm  defprol.out 

acego  .  .  /ne i 1 /d ef pr o2  *<1>  *<2>  *<3> 
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cd  /u/r evi eu2/db 

dbstatus  ir.amp  «X 
erase  file  fundpro 

bye 

X 


mv  . . /schema/f und pr o .  k  . 
dbbuild  fundpro.  k 
mv  fundpro.  k  .  .  /schema 

acego  . . /nei 1/comprol  *<2>  *<3>  "*{4>" 
dbstatus  mamp  «X 

load  ascii  fundpro  from  "comprol. out" 

bye 

X 


/bin/rm  canprol. out 

acego  .  . /ne i 1 /compr o2  *{1>  *<2>  *<3>  "*<4>" 
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B  .  3 


Shell  Programs  for  MAMP  Production 


Shell  programs  are  also  used  for  the  rapid  and  convenient  execution  of 
the  MAMP  production  runs.  During  the  MAMP  production  period,  many  reports  are 
prepared.  Usually  this  tedious  sequence  of  reports  for  one  mission  area  is 
the  same  for  all  mission  areas.  Attention  must  be  paid  to  the  report's  page 
numberings  since  they  might  depend  on  the  length  of  previous  reports.  In 
addition,  sometimes  the  execution  of  the  many  reports  takes  a  long  time  and 
must  be  performed  overnight.  The  shells  described  in  this  paragraph  take  away 
the  drudgery  of  producing  the  MAMP  reports  by  automatically  stepping  through 
the  correct  sequence  of  operating  system  calls  needed  to  prepare  the  MAMP. 

The  following  shell  programs,  found  in  the  "../shell"  directory, 
illustrate  the  use  of  shells  to  produce  the  MAMP.  These  are  tailored  for  each 
mission  area,  and  can  be  expected  to  change  with  each  MAMP  production  run  as 
the  specific  reports  desired  will  change. 

"Deficiency .css"  produces  the  deficiency  volume  of  the  CSS  MAMP.  It 
creates  the  Deficiency  Index,  the  Commodity  Index,  the  Project  Index,  the 
Deficiency  Summary,  the  Commodity  Summary,  the  Project  Summary,  the  PDIP  to 
System  Cross  Reference,  the  BDP  System  Rankings,  the  BDP  Workpackage  Rankings, 
the  LRRDAP  Development  System  Priorities,  the  LRRDAP  Workpackage  Priorities, 
and  the  LRRDAP  Procurement  System  Priorities.  Each  report  is  correctly 
paginated  and  controlled  for  printing.  At  the  conclusion  of  the  shell,  the 
reports  are  moved  to  the  " . . /output/cssreports"  directory  for  storage.  To 
verify  the  performance  of  the  ACE  reports,  the  file  "defic.log"  is  available 
in  the  "../db"  directory,  which  provides  the  ACE  report  output. 

The  simpler  "system. css"  and  "wkpkg.css"  similarly  produce  the  system  and 
workpackage  volumes  of  the  CSS  MAMP.  Again  the  reports  are  placed  in  the 
"../output/cssreports"  directory,  and  the  log  files  are  created  to  verify  the 
performance  of  the  reports. 
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echo  "SEtf  DEFIC.LOG  FOR  A  LOG  OF  THIS  PROCEDURE" 
cd  /u/r  evieta2/db 

expr  1  !  acego  .  .  /ne i  1  /def index  a  1  CSS  N  >  defic.  log 

echo  "FILE  DEF INDEX!.  OUT  IS  READY  TO  PRINT" 

expr  l  !  acego  .  .  /ne i 1 /c ominde x  b  1  CSS  N  >>  defic.  log 

echo  "FILE  CQMINDEX1.  OUT  IS  READY  TO  PRINT" 

expr  1  :  acego  .  .  /nei  1/pro j  index  c  1  CSS  >>  defic.  log 

echo  “FILE  PROJINDEX. OUT  IS  READY  TO  PRINT" 

expr  1  :  .  .  /eh e 1 1 / d ef r o  1 1  Z  1  CSS  »  defic.log 
echo  "FILE  DEFROLI  OUT  IS  READY  TO  PRINT" 

tail  -10c  defroll. out  !  podd  !  acego  .  .  /neil/commod  Z  1  CSS  »  defic.  log 
echo  "FILE  COMMQD. OUT  IS  READY  TO  PRINT" 

tail  -10c  commod.  out  !  podd  !  acego  .  .  /nei  1/pro ju.- k p  Z  1  CSS  »  defic.  log 
echo  “FILE  PRQJNKP.  OUT  IS  READY  TO  PRINT” 

expr  1  i  acego  .  .  /ne i 1 /p d  i p sg s  A  1  CSS  »  defic.  log 

echo  "FILE  PDIPSYS.  OUT  IS  READY  TO  PRINT” 

expr  1  !  acego  . . /ne i 1/pr iorsg*  B  1  CSS  »  defic.log 

echo  "FILE  PRIORSYS. OUT  IS  READY  TO  PRINT" 

expr  1  acego  .  .  /ne  i  1  /p  r  i  orwp  C  1  CSS  »  defic.log 

echo  “FILE  PR IQRWP. OUT  IS  READY  TO  PRINT” 

expr  I  acego  .  /nei  1/lrrdpti/t  D  1  CSS  C  >>  defic.log 

echo  "FILE  LRRDPSYS,  OUT  IS  READY  TO  PRINT" 

expr  1  !  acego  .  .  /ne i  1  / 1  rr dpuip  E  1  CSS  C  >>  defic.  log 

echo  "FILE  LRRDPWP. OUT  IS  READY  TO  PRINT" 

expr  1  !  acego  .  /ne i  I /procpr i  F  1  CSS  C  >>  defic.log 

echo  "FILE  PROCPRI.OUT  IS  READY  TO  PRINT" 

mv  defindex.out  ../output/c*sreport» 
mv  comindex. out  , . /ou tpu t /c s jr ep or t * 
mv  pr o j  inde x .  ou t  ..  /output /c sir ep or ts 
mv  defral.  out  . . /output/cssreports 
mv  commod.  out  .  .  /output/ceereports 
mv  projwkp.out  .. /output/c * sreport* 
mv  pdipege.out  . . /ou tput/cssr epor t s 
mv  prioregs.out  .  .  /output/ceerepor te 
mv  priortup.  out  .  .  /output/cureporte 
mv  Irrdpege. out  . . /output/cssreport* 
mv  lrrdpwp.  out  .  .  /ou tput/ce *r epor te 
mv  procpri.out  . . /ou tpu t /e « »r epor ti 
mv  defic.  log  .  .  /output/e esrepor te 
echo  "all  done  with  deficiency  volume" 
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c d  /u/review2/db 

expr  1  !  acego  . . /neil/sysres  Z  1  CSS  >  system. log 

echo  "FILE  SYSRES.  OUT  IS  READY  TO  PRINT" 

tail  -10c  sysres. out  !  podd  !  acego  . . /nei 1/sysdol lars  Z  1  CSS  "*“  »  system. log 
echo  "FILE  SYSDOLI  ARS.  OUT  IS  READY  TO  PRINT" 

pidx  <  sysdol lars. out  >  pidx.out 
informer  mamp  «X  >>  system,  log 
delete  noprompt  idxpg; 
bye 
7. 

dbstatus  mamp  «%  >>  system,  log 

load  ascii  idxpg  from  "pidx.out" 
bye 
7. 

/b in/rm  p  idx.  out 

expr  1  !  acego  .  .  /ne  i  1  /sy s  inde x  a  1  CSS  >>  system,  log 

echo  "FILE  SYSINOEX.  OUT  IS  READY  TO  PRINT" 
expr  1  !  acego  .  .  /ne  i  1 /sy s  inde xl  b  1  CSS  »  system,  log 
echo  "FILE  SYSINDEX1. OUT  IS  READY  TO  PRINT" 

mv  syslndex.out  /output/cssreports 
mv  sysindexl. out  ../output/cssreports 
mv  sysres. out  . . /output/cssreports 
mv  sysdollars. out  ../output/cssreports 
mv  system. log  .  /output/cssreports 
echo  "all  done  with  system  volume* 
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cd  /u/r evi ew2/db 

expr  1  '  acego  .  .  /ne i  1 /wr kap d x  Z  1  CSS  >  wkpkg.  log 

echo  "FILE  WRKAPDX.  OUT  IS  READY  TO  PRINT" 

expr  1  !  acego  . . /ne i 1 /wk p ind e x  a  1  CSS  »  wkpkg. log 

echo  "FILE  WKP INDEX.  OUT  IS  READY  TO  PRINT" 

mv  wkpindex. out  . . /output/cssreports 
mv  wrkapdx. out  . . /output/cssreports 
mv  wkpkg. log  . . /output/cssreports 
echo  "all  done  with  workpackage  volume” 
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B. 4  Shell  Programs  for  Mass  Actions  to  the  Data  Files 


Occasionally,  the  user  will  need  to  make  some  mass  changes  to  the 
database.  These  changes  typically  revolve  around  the  deletion  of  an  NSI  or 
the  change  of  an  NSI  to  an  SSN.  Because  the  SSN  is  present  in  many  different 
files,  it  can  be  extremely  tedious  to  make  all  these  changes  and  it  is  quite 
likely  that  one  or  more  of  the  changes  will  not  be  made. 

The  shell  programs  presented  below  are  used  to  rapidly  change  data 
records  from  one  SSN  to  another,  to  delete  all  records  with  a  particular  SSN, 
or  to  print  all  data  pertinent  to  a  particular  SSN.  The  correct  calling 
sequence  for  these  programs,  found  in  the  "../shell"  directory,  is: 

updatessn  [old  ssn]  [new  ssn] 

deletessn  [ssn] 

printssn  [ssn] 

Note  that  updatessn  may  have  trouble  in  replacing  the  old  ssn  with  the  new  ssn 
if  corresponding  records  already  exist  for  the  new  ssn.  Then,  the  duplicate 
index  value  might  cause  Informix  to  not  perform  that  update  completely.  The 
user  might  want  to  execute  printssn  for  the  new  ssn  first  to  see  what  data 
might  already  be  present  for  the  new  ssn. 
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informer 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

update 

bye 

X 


manp  «'/. 

nopromp t 
nopromp  t 
nopromp t 
nopromp  t 
nopromp  t 
nopromp  t 
nopromp  t 

nopromp  t 
nopromp  t 
nopromp  t 
nopromp  t 
noprompt 
noprompt 
nopromp  t 
nopromp  t 


assn  assn_ssn  =  ”*<2>"  where  assn_ssn  * 

assn  assn_assoc_ssn  =  "*-C2>"  where  assn_assoc_ssn  =  "*{1>"; 
lrrdp  lrrdp_ssn  ”  "*{2>"  where  lTrdp_ssn  “  ”*{1>“i 
ssn  ssn_ssn  *  where  ssn_ssn  “  "*{l>"i 

ssnctl  scl_ssn  «  "*<2>“  where  scl_ssn  *=  "S<1>”; 
ssndef  ssndef_ssn  *  "*{2>"  where  ssndef_ssn  *  "*{1>"; 
wkpsys  wkpsys_ssn  »  "*<2>"  where  wkpsys_ssn  “  "*<1>"i 

hipri  hipri_ssn  «  "*-C2>‘'  where  hipri_ssn  «=  M*<1>"; 
assr  itir.iin  ■  "*<2>"  where  *ur_sin  “  "*{l>"i 
ssndroll  ssnd_ssn  “  "S<2>"  where  ssnd_ssn  »  “*<1>"i 
priori  pr ior l_ssn_no  ■  "*<2>"  where  pr iorl_ssn_.no  “  ,,*{l>“i 
unissn  unissn_ssn  ■  "*{2>“  wh >re  unissn_ssn  ■  ”*<l>"i 
pom89ssn  pomB9»sn_ssn  ■■  "*{2>"  where  pomB9ssn_ssn  »  ”*{1>"j 
uniwkp  uniwkp_ssn  ■  "*<2>"  where  uniwkp_ssn  ■  "*<l>"f 
idipg  id«pg_ssn  ■  "*{2>"  where  idxpg_ssn  «  "*{l>"i 
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informer  manp  «Y. 

delete  noprompt  assn  inhere  assn_ssn  =  "*<l>"i 
delete  noprompt  assn  inhere  as*n_assoc_ssn  »  “*<1>'‘; 
delete  noprompt  lrrdp  inhere  lrrdp_ssn  «  "*{1>“< 
delete  noprompt  ssn  inhere  ssn^ssn  » 
delete  noprompt  ssnctl  inhere  scl_ssn  »  "*{l>“i 
delete  noprompt  ssndef  inhere  ssndef_ssn  “  "*{l>"i 
delete  noprompt  tnkpsi/s  inhere  wkpsys_ssn  » 

delete  noprompt  hipri  inhere  hipri_ssn  =  “*<1>“< 
delete  noprompt  assr  inhere  assr_s*n  ■ 
delete  noprompt  ssndroll  inhere  ssnd_ssn  « 
delete  noprompt  priori  inhere  pr i or l_s sn_no  =  "*<1>"; 
delete  noprompt  unissn  inhere  unissn_ssn  ”  ”*{1>"; 
delete  noprompt  pom89ssn  inhere  pomS9ssn_ssn  = 
delete  noprompt  uniinkp  inhere  uniinkp_ssn  «  "*{1>''/ 
delete  noprompt  idxpg  inhere  idxpg_ssn  «  "•■Cl>,‘; 

b  ye 

X 
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informer  -g  mamp  «%  Y  sysdata.  out 

print  assn  inhere  assn_ssn  « 

print  assn  inhere  assn_assoc_ssn  «  "*<1>"i 

print  lrrdp  inhere  lrrdp_ssn  ■ 

print  ssn  inhere  ssn_ssn  » 

print  ssnctl  inhere  scl_ssn  ■  ,,*<1>"i 

print  ssndef  inhere  ssndef_ssn  »  "*{1>"i 

print  inkpsgs  inhere  inkpsgs_ssn  ■  "*<1>"i 

print  hipri  inhere  hipri_ssn  »  “*<l}"i 
print  essr  inhere  essr_ssn  ■ 
print  ssndroll  inhere  ssnd_ssn  »  “*<1>"; 
print  priori  inhere  pr  i  or  l_ssn_no  •  ”*<l>"i 
print  unissn  inhere  unissn_ssn  ■  “*<1  >“i 
print  pom.89ssn  inhere  pomS9ssn_ssn  ■ 
print  uniinkp  inhere  uniinkp_ssn  <*  “»<l>"i 
print  idipg  inhere  ldipg_ssn  *  "*<l>“i 

bge 

X 

echo  "system  date  is  at  sysdeta. out” 
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B. 5  Utility  Programs 


The  following  programs,  written  in  the  C  language,  are  useful  in  managing 
the  correct  pagination  of  the  MAMP  volumes.  Examples  of  the  usage  of  these 
programs  can  be  seen  in  the  MAMP  production  shells  described  in  B.3  above. 

(1)  Pageread.c  (compiled  tv  "pnext") 

This  program  gets  a  number  from  input,  increments  it,  and  writes  it 
to  output.  It  is  used  to  identify  the  correct  first  page  number  for 
a  printed  report.  Its  usage  would  be: 

tail  -10c  oldreport .out  !  pnext  !  acego  newreport 

(2)  Pageodd.c  (compiled  to  "podd") 

This  program  is  similar  to  pnext,  except  that  it  finds  the  next  odd 
number  after  the  one  input  and  writes  that  to  output.  This  would  be 
the  correct  page  number  if  the  new  report  must  begin  on  a  facing 
(odd)  page.  Its  usage  would  be: 

tail  -10c  oldreport .out  I  podd  I  acego  newreport 

(3)  Readidx.c  (compiled  to  "pidx") 

This  program  reads  the  ssn  and  page  data  off  of  the  file 
"sysdollars.out"  (which  must  be  directed  to  input),  inserts  the 
proper  delimiter  characters,  and  writes  ‘he  pagination  data  to 
output.  The  resulting  data  is  loaded  into  the  temporary  database 
file  "idxpg"  for  use  in  the  two  System  Index  Reports.  This  saves 
hours  of  manual  work  in  searching  for  the  data  and  entry  into  the 
indexes.  A  sample  of  the  proper  usage  for  this  program  is  found  in 
the  shell  "system. css",  but  is  reproduced  below: 

pidx  <  sysdollars.out  >  pidx. out 
informer  mamp  <<% 
delete  noprompt  idxpg; 
bye 
% 

dbstatus  mamp  <<% 

load  ascii  idxpg  from  "pidx. out" 

bye 

% 
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main  <  ) 

< 

int  ii 

scan#  C  "Kd  '**  &i  ) » 
printf  (  "%d  \n .  i  +  l)i 

> 
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main!  ) 

< 

int  i< 

scanf  ( " %d " >  & i )  < 
if  (++17.2  ==  0)  i++i 
printf  <  “7.6  \n  "  .  i  )  ; 
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#  include  <s  t  d  i  o.  h> 
ma in (  ) 

< 

char  junkl; 
char  junk2C283; 
char  s s n C 8 1 ; 
int  i,  j.page; 

J  =  1> 

uih  1 1  e  (  j  !  =0  > 

< 

for  (i  »  li  i  <=  6;  i++> 

{ 

while  (  <  j  un  k  1  =  getcharO)  =  '\n'  t,k  junkl  '  = 
if  ( junkl  ==  EOF)  j  =  0; 

> 

if  <  j  ==  1 ) 

< 

scanf  l"‘Ai  7.  s  "<  jun  k2,  3  sn  )  i 
for  U  »  1;  l  <=  36i  i++) 

{ 

while  ( ( junk  1  »  getchar<))  !=  '\n'  &&  junkl  ! 
if  (junkl  =*  EOF)  j  =  0; 

> 

if  ( j  1 ) 

< 

for  (i  «  1;  i<=61i  i++)  junkl  =  getchar(); 

jcanf  (  "7.6“.  fcpage  ),• 

printf  ( " X  s ! Xd !\n". sen,  page)i 

for  (  i  *  li  i  o  4i  i++) 

< 

while  ((junkl  =  getchar(J)  ' =  '\n'  &&  junkl 
if  (junkl  *»  EOF)  j  =  Oi 

> 

> 

> 

> 

> 


EOF  >  i 


=  EOF ) i 


f=  EOF )  i 
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B . 6  Perform  Screens 


Two  simple  perform  screens  have  been  developed  to  assist  data  entry 
personnel  in  reviewing  and  updating  the  permanent  MAMP  data  files.  These 
perform  screens  are  located  in  the  "../db"  directory  and  may  be  executed  by 
using:  "perform  system",  or  "perform  wkpsys"  from  that  directory. 

These  screens  are  not  as  thorough  or  as  comprehensive  as  the  AMC  provided 
ones.  Instead,  they  provide  only  the  minimum  essential  capability  to  locate, 
enter,  and  update  the  data  present  on  the  System  Summary  Report  which  has  been 
used  as  the  major  format  for  quality  control  and  data  entry. 
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database  manp 


screen 

< 


System  :  Cssn  3 

Title  :  Ctitle 

3 

PDIP  :  Cpdip  3 

DA  Mission  Area  : 

C da  3 

TRADOC  Mission  Area  :  Ctdc3 

AMCMSC  Camcmsc 

3  AMC  Manager  : 

Ccmd 

3  TRADOC  Proponent  :  Cpro3 

Acquisition  Type  : 

Cacq3  Ctyp  3 

Cross  Functional  Area  :  Cxfunc  3 

Commodity  Ccom 

3 

Req  Doc 

:  Crdl  3  Crd2  3  Crd3  3 

Description 

Class  :  Cc  3 

Cdl 

3 

Cd2 

3 

Cd3 

3 

Cd4 

3 

C  d  5 

3 

Cd6 

3 

Cd7 

3 

CdS 

3 

Deficiency  :  Cdef 

3  Contribution 

Value  :  Cv3 

Associated  SSN  :  [assoc  3 

Control  Code  :  Ccode3  Control  Name 

V 

[name 

3 

end 

attributes 

ssn  »  ssn_ssn  ■  lrrdp_ssn  =  ssndef_ssn  »  assn_ssn  »  scl_ssn. 
upshift,  required,  autonest, 
comments  *  "Enter  system  SSN  or  NSt.  “i 
title  ■  lrrdp_title.  upshift,  autonext; 
pdip  ■  lrrdp_pdip.  upshift,  autonext; 
da  «  ssn_da_ma.  upshift,  autonext; 
tdc  ■  ssn_tradoc_ma.  upshift,  autonext; 
arcmsc  »  ssn_amc_mse.  upshift,  autonext. 

include  *  (AMCHQ, AMCCOM, AVSCOM. CECOM.  LAB CON. HICON. TACON, TROSCOM. SDC ) , 
comments  -  "Choices  are:  AMCHQ, ANCCON,  AVSCON,  CECOM,  LABCCM,  NICON.  TACON,  TROSCOM,  SDC " 
cmd  »  ssn_amc_mgr,  upshift,  autonext; 
pro  ■  ssn_tradoc _pro.  upshift,  autonext; 
acq  “  *acq_code  »  ssn_acq_code,  autonext; 
typ  ”  acq_stt,  autonext; 

xfunc  •  ssn_xf uncarea.  upshift,  autonext; 
com  »  ssn_com_l ine.  upshift,  autonext; 
rdl  »  ssn_r tq_doc 1 .  upshift,  autonext; 
mZ  “  ssn_req_doc2.  upshift,  autonext; 
rs3  »  ssn_req_doc3.  upshift,  autonext; 

c  “  ssn_class.  upshift,  autonext; 
dl  «  ssn_desc C 1 . 753 ,  upshift,  autonext; 
d2  •  ssn_desc C76, 1503.  upshift,  autonext; 
d3  “  ssn_desc C 1 51 , 2253 ,  upshift,  autonext; 
d4  =  ssn_desc C226. 3003.  upshift,  autonext; 
d5  "  ssn_desc C301 . 3753 .  upshift,  autonext; 
d6  »  s sn_desc C376.  4503 .  upshift,  autonext; 
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d7  m  ssn_desc C4SI,  5253,  upshift,  autonext; 
48  ■  ssn_d esc C526,  600  3 .  upshift/  autonext; 

def  =*  ssndef_def.  autonext; 

v  =»  ssndef  _cont_value.  upshift/  autonext/ 

assoc  *  as sn_a s soc_s sn/  upshift/  autonext; 

code  »  scl_code(  autonext; 

name  «  sd_nai»«,  upshift/  autonext; 

ins  true  t  i  ons 


!sn 

master 

of 

lrrdp; 

%  sn 

master 

of 

ssndef; 

*  sn 

master 

of 

assn; 

Hn 

master 

of 

ssne  1 1 ; 

end 


Ju 1  11  13  S6  1986  ukpsys. scr  Page  1 


database  manp 

screen 

{ 


Command  :Ccmd  1  Category: 

P-ogram  Element  :  Cpe  1  Project  :  Cprojl  Task 

Uorkpackage  :  Cu/kpkg  1 

System  :  Cssn  3  Criticality  Factor  Cu3 

> 

end 

attributes 

cmd  “  eikpkg_cmd  =  ukpsys_cmd,  required/  upshift/  autonext; 
cat  »  ukpkg_cat  *  wkpsys_cat.  required/  upshift/  autonext. 
include  «  (6  1.  6.  2.  6.  3); 

scat  «  wkpkg_subcat  »  ink p sy s_sub ca t,  required,  upshift,  autonext. 

include  »  (6.1.  6.2,  '6.  3A'.  '6.  3B 6.4,  6.5,  6.7); 

pe  «  ukpkg_pe  *  ukpsys_pe.  required,  upshift,  autonext; 
pro j  »  ukpkg_proj  »  ukpsys_proj.  required,  upshift,  autenext; 
task  “  ukpkg_task  »  ukp sy s_tas k .  required,  upshift,  autonext; 
uikpkg  »  ukpkg_no  »  ukpsys_ukp kg,  upshift,  required,  autonext. 
comments  ”  "Enter  ukpkg  number."; 

ssn  *■  ukpsys_ssn,  upshift,  required,  autonext. 

comments  «  "Enter  system  SSN  or  NSI.  “; 
u  »  ukpsys _srf,  upshift,  required,  autonext, 

comments  »  "Enter  ukpkg's  criticality  factor. ”; 

ins  true  t ions 

composite  join  ukp kg_ukp sy s_id x  ■  ukpsy s_ukp kg_id x ; 

ukpkg  master  of  ukpsys; 

end 


C  cat  3  Cscat 3 
C  task  3 
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APPENDIX  C 


SAMPLE  OUTPUTS  OF 
CURRENTLY  AVAILABLE  MAMP  REPORTS 
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The  CSS/EMW/SOF  MAMP  system  consists  of  over  50  ACE  programs,  most  of 
which  produce  printed  and  formatted  output.  This  appendix  presents  sample 
outputs  of  each  report,  along  with  a  brief  description  of  the  report  content 
and  the  correct  method  for  initiating  the  running  of  the  report. 

The  parameters  used  in  each  report  are  described  on  the  following  table. 
The  user  would  substitute  appropriate  data  for  these  parameters,  to  cause  the 
program  to  produce  the  correct  output.  Reports  which  require  the  running  of 
more  than  one  ACE  program  are  separately  described  in  Appendix  B,  paragraph  2. 

A  standard  procedure  has  been  followed  in  the  use  of  parameters  in  these 
reports.  The  first  parameter  is  always  the  starting  page  number.  It  is 
provided  as  the  UNIX  standard  input  to  the  ACE  program  by  piping  it  from  the 
standard  UNIX  function  'expr' .  It  can  also  be  provided  by  piping  the  output 
from  the  special  C  programs  ’podd’  or  ’pnext’  (see  Appendix  B,  paragraph  5), 
or  if  the  program  is  not  non  in  the  background  then  the  user  can  type  the 
number  in  directly  from  the  keyboard  when  he  is  prompted  for  the  starting  page 
number. 

The  formal  parameters  for  the  ACE  reports  always  begin  with  the  sequence 
’ [pg  letter]  [code]  [name] ’ .  The  page  letter  to  be  used  is  substituted  for 
the  parameter  ’[pg  letter]’.  It  allows  the  user  to  easily  specify  the  page 
lettering  to  use  (or  to  omit  with  a  ’Z’)  that  is  consistent  with  the  position 
of  this  particular  report  in  the  MAMP  document  that  is  being  prepared.  The 
parameters  ’[code]’  and  ’[name]’  are  the  control  file  filters  that  are  applied 
in  keeping  with  the  AMC  database  structure.  These  would  be  used  to  select  the 
MAMP  report  for  data  relevant  to  the  CSS  or  EMW  or  SOF  or  BELVOIR  mission 
areas . 

The  remaining  parameters  are  included  to  add  control  and  flexibility  for 
each  individual  report.  In  most  cases  they  allow  the  ACE  report  to  be 
tailored  from  a  lengthly  report  for  the  entire  mission  area  to  a  much  smaller 
report  that  specifically  addresses  the  data  of  interest. 
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EXPLANATIONS  OF  PARAMETERS  USED  IN  THE  ACE  REPORTS: 

Cfirst  pg#l  an  integer  that  describes  the  first  page  number  to  be  printed 

on  the  report.  Expr  puts  the  page  number  into  standard  input 
so  the  report  can  be  run  in  the  background.  In  the  foreground 
the  user  mill  be  prompted  to  enter  the  page  number  from  the 
terminal.  See  also  the  podd  and  pnext  C  programs. 

Cpg  letter!  a  single  character  that  states  the  desired  page  letter  to  be 

printed  along  with  the  page  number.  A  "Z"  will  cause  the  report 

to  omit  the  page  letter  altogether. 

Ccodel  an  integer  that  references  the  code  field  in  the  mamp  control 

files.  1  =  TRADOC  Mission  Area 

2  =  DA  Mission  Area 

3  =  MSC 

4  =  Flag 

Ccommandl  a  character  string  of  the  command  name  or  to  indicate  all 

command  s . 

Cnamel  a  character  string  that  designates  the  specific  name  entry  for 

the  code  that  is  entered  in  the  mamp  control  files. 

Cclassl  a  single  character  "U"  or  "C"  that  switches  some  reports  between 

an  unclassified  and  a  confidential  format. 

[base  yrl  an  integer  that  indicates  which  year  is  designated  by  year  0  in 
the  workpackage  funding  data. 

Cssnl  a  character  string  that  designates  a  specific  ssn  or  nsi  to 

search  on.  or  “ * “  to  indicate  all  ssn 's. 

C^ommodityl  a  character  string  of  the  commodity  name,  or  to  indicate  all 

commodity  names.  Use  ““  to  contain  commodity  names  with  a  space. 

Cpro]  a  single  character  ”Y“  or  "N“  that  switches  the  deficiency  and 

commodity  index  reports  between  single  column  or  double  column 
entries  for  page  numbers.  Used  if  generating  profiles. 

Cprojl  a  character  string  that  designates  a  specific  RDTE  project  or  an 

to  indicate  all  projects. 

Cpdipl  a  character  string  to  designate  a  specific  p d i p / increment  or  an 

to  indicate  all  pdips. 
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SOURCE  CODE  FOR 

CURRENTLY  AVAILABLE  MAMP  REPORTS 
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<  Streamlined  Ease  Case  and  Type  Classified  Systems  > 

<  This  Report  Produces  a  Chart  of  Funding.  > 

<  2/5/86  to  add  the  mission  area  and  date-time  stamp 
2/7/86  to  include  ssndesc  modifications. 

5/20/86  to  add  group  parameter,  and  changed  in  order  to  be  run  in  mamp. 
5/29/86  to  erclude  base  case  and  only  show  type  classified. 

7/24/86  removed  group  parameter,  changed  to  unclass,  added  all  pdips. 

database  manp  end 

define 


variable 

t o  ta 1 _f und 

type 

long 

variable 

e  va  1 

type 

integer 

var  i a b  1  e 

pno 

type 

integer 

var  lab  1  e 

P  1 

type 

long 

va  r i ab  1  e 

p2 

type 

long 

va  r  i  a  b  1  e 

p3 

type 

long 

var  table 

P  4 

type 

long 

var iab  1  e 

p5 

type 

long 

var  i a b  1  e 

p6 

type 

long 

variable 

P  7 

type 

long 

var  i  a  b  1  e 

p8 

type 

long 

var  table 

p9 

type 

long 

va  r i a  b  1  e 

p  1  0 

type 

long 

var ia  b  1  e 

P  11 

type 

long 

var  iab  1  e 

P  12 

type 

long 

var  iab  1  e 

P  13 

type 

long 

var  i ab  1  e 

P  14 

type 

long 

var  iab  1  e 

p  15 

type 

long 

var  iab  1  e 

p  16 

type 

long 

var  iab  1  e 

u  1 

type 

long 

var  iab  1  e 

u2 

type 

long 

var  iab  1  e 

u3 

type 

long 

var  iab  1  e 

u  4 

type 

long 

var  i ab  1  e 

u  5 

type 

long 

var  iab  1  e 

u6 

type 

1  ong 

var  iab  1  e 

u  7 

type 

long 

var  i  a  b  1  e 

u8 

type 

long 

var  i a b  1  e 

u9 

type 

long 

var  iab  1  e 

ulO 

type 

long 

va  r i a  b  l  e 

u  1  1 

type 

long 

var  iab  1  e 

u  1 2 

type 

long 

va  r i a  b  1  e 

u  1  3 

type 

long 

var iab  1  e 

U  1  4 

type 

long 

var  iab  1  e 

u  1  5 

type 

long 

va  r i a  b  1  e 

u  1  6 

type 

long 

paramCll 

p  letter 

type 

character 

length 

l 

paramC21 

code 

type 

integer 

p  a  ram  C3 1 

name 

type 

character 

length 

1 

p  ar am  C  4 ] 

c  md 

type 

character 

I  eng  th 

1 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 


Jul  24  12 59  1986  basetc  Page 


output 

left  mar g in  0 
right  mar g in  132 
report  to  " b a s e t c .  ou t " 
end 

read  into  c 
sc l_ssn 

where  scl_code  =  code  and  scl_name  =  name 
end 

read  into  a 
c 

ssn_amc_mgr  ssn_da_ma  s sn_tr ad ac_ma 

where  s  sn_ac  q,_c  od  e  =  2  and  ssn_amc_mgr  matches  cmd 
joining  c.scl_ssn  =  ssn_ssn 
end 

read  into  b 
a 

ssndroll 

lrrdp_title  lrrdp_pdip 

lrrdp_procfl  lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf5 
lrrdp_procf6  lrrdp_procf7  lrrdp_procf3  lrrdp_procf9  lrrdp_procflO 
lrrdp_procfll  lrrdp_procfl2  lrrdp_procfl3  lrrdp_procfl4  lrrdp_procfl5 
lrrdp_procfl6 
lrrdppri_pri 

joining  a.  sc l_ssn  =  optional  lrrdp_ssn 
and  a.  scl_ssn  *  optional  ssnd_ssn 
and  lrrdp_pdip  *  optional  lrrdppri_pdip 

end 

sort  bg  scl_ssn  lrrdp_pdip  end 

format 

page  header 
let  eval  =  0 

print  column  48.  ''***♦*  UNCLASSIFIED  **♦**" 
skip  2  lines 

print  column  39, "STREAMLINED  SUMMARY  OF  TYPE  CLASSIFIED  SYSTEMS  FOR  ".name 
skip  3  lines 

print  column  90. "PROCUREMENT  SCHEDULE" 

print  “  - - " 


print  '*!  SSN",  10  spaces,  "TITLE/DEFICIENCIES",  column  57.  "DA/TDC  MA'\ 
column  67, 


print  " 

86  87 

88 

e9  90  91 

92  93  94  95  96  97  98  99  00  01  ! 

print  " 

" .  col umn 

67, 

" ! " # col umn 

132,  "!" 

on  last  record 

print  “!". column  67# ” ! ", c o 1 umn  132, 
print  " - - 


Jul  24  12: 59  1986  basetc  Paae  3 


b  e  f  ore  group  of  icl_ssn 


let 

p  1  =*  0 

let 

p2  =  0 

let 

p3  =  0 

let 

p4  =  0 

let 

p3  ■  0 

let 

p6  *  0 

let 

p7  =  0 

let 

p8  =  0 

let 

p9  =  0 

let 

p  10  =  0 

let 

pll  »  0 

let 

p  12  =  0 

let 

pl3  =  0 

let 

p  1  4  =  0 

let 

plS  =  0 

let 

p  1 6  =  0 

let 

ul  =  0 

let 

u2  =  0 

let 

u3  =  0 

let 

u4  =  0 

let 

u3  =  0 

let 

u6  =  0 

let 

u  7  —  0 

let 

u8  =  0 

let 

u9  =  0 

let 

ulO  =  0 

let 

u  1 1  =  0 

let 

U 12  =  0 

let 

u  13  =  0 

let 

U  1  4  =  0 

let 

ulS  =  0 

let 

u  16  =  0 

fore  group 

if 

irr  dp  p  r  i 

let  ul  = 

let  u2  = 

let  u3  = 

let  u4  = 

l 

s t  uS  = 

let  u6  = 

let  u7  =» 

let  u8  = 

let  u9  = 

let  ulO  = 

let  u 1 1  = 

let  ul2  “ 

let  u 13  * 

let  u 1 4  = 

let  u 1 5  * 

let  u 16  » 

end 

•Is*  begin 


of  lrrdp_pdip 

iO  0  or  Irrd p p r i_pr i>800.  Q  then  begin 
ul  +  lrrdp_procf  1 
u2+irrdp_jirocf2 
u3+Irrdp_procf3 
u4->-lrrdp_procf4 
u3+lrrdp_procf5 
uA+lrrdp_procf6 
u7+lrrdp_procf7 
u8+lrrdp_procfS 
u9+lrrdp_pracf9 
ulO+lrrdp  _procfiO 
ull+lrrdp_procfll 
ul2+lrrdp  _procf 12 
u!3+lrrdp_procfl3 
ul4+lrrdp_procfl4 
u!3+lrrdp_procfl5 
ul6+lrrdp  _p  r oc  f  16 
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let  pi  =  pl+lrrdp_procfl 
let  p2  »  p2-*-lrrdp_procf2 
let  p 3  =  p3+lrrdp_procf3 
let  p4  ■  p4+lrrdp_proc f4 
let  p5  =  p5+lrrdp_procf5 
let  p6  «  p6-i-l  rrdp  _p  roc  f  6 
let  p 7  =  p  7+ Ir  r  d  p  _p  r  oc  f  7 
let  p8  »  pS+1 rrdp _p roc fS 
let  p 9  =  p9+ 1 rr d p _pr oc f 9 
let  plO  =  p 10+lrrdp_proc f 10 
let  pll  =  p  1  1  +  1 r r dp _p r oc f 1 1 
let  pl2  *  p 12+ Ir r dp_p r oc f 12 
let  pl3  *  p 13+1 r rd p _pr oc f  13 
let  pl4  »  pl4»lrrdp_procfl4 
let  pl5  =  pl5+lrrdp_procfl5 
let  pl6  *  pl6-*-lrrdp_procfl6 
end 


after  group  of  scl_ssn 

let  total _fund  “  p 1 +  u Imp 2+ u2+p3+u3+p4+u4+p 5-ru5+p6+u6rp7-*-u7rp0ru8r 
p9+u9+p  10+ul0+p  1 1  +  ul  1+p  12  +  ul2-rp  13+u  1 3+p  14rul4+p  1  5+u l 5+p  1 6+u  16 


print  "!  ",scl_ssn,2  spaces.  lrrdp_titleCl,  45  3 
ssn_da_ma.  "  /  ",  s sn_t r a d oc _ma .  column  67 
if  scl_ssn  matches  "4*"  then  print  column  93. 
else  if  total_fund  =  0  then  print  column  93. 
else  begin 


1  space, 

CSTOCK  FUNDED7".  column  132," 
<N3T  SCHEDULED7". column  132. 


if 

p  170 

then 

begin 

i  f 

u  1 70 

then 

print 

else 

print 

" **** " 

end 

else 

begin 

if 

u  1  >0 

then 

print 

" - "  i 

else 

print 

II  M 

end 

if 

p270 

then 

begin 

if 

u2>0 

then 

print 

M*-*- " ; 

else 

print 

"#****• 

end 

else 

begin 

if 

u270 

then 

print 

" - *' ; 

else 

print 

end 

if 

p370 

then 

begin 

if 

u37>0 

then 

print 

■, 

else 

pr  int 

M ****” 

end 

else 

beg  in 

if 

u3>0 

then 

print 

“ - "  i 

else 

print 

H  II 

end 

if 

p470 

then 

begin 

if 

u  4>0 

then 

print 

" 

else 

print 

"  ****'* 

end 

else 

begin 

if 

u47Q 

then 

print 

“ - 

else 

print 

II  II 

end 

if 

p  570 

then 

beg  in 

if 

u570 

then 

print 

else 

print 

"#***" 

end 

else 

begin 

if 

u5>0 

then 

print 

** - " ; 

else 

print 

•  1  II 

end 

if 

p670 

then 

begin 

if 

u670 

then 

print 

; 

else 

print 

••#***" 

end 

else 

beg  in 

i  f 

u670 

then 

print 

" - *'  i 

else 

print 

II  II 

end 

if 

p  77  0 

then 

begin 

if 

u7>0 

then 

print 

else 

print 

"****" 

end 

else 

begin 

if 

u770 

then 

print 

" - '*  ; 

else 

print 

II  II 

end 

i  f 

p870 

then 

begin 

i  f 

u8>0 

then 

print 

; 

else 

print 

"#*#*" 

end 

else 

begin 

if 

u870 

then 

print 

" - "  «■ 

else 

pr  int 

II  II 

end 

i  f 

p970 

then 

beg  in 

i  f 

u970 

then 

print 

else 

print 

end 

else 

beg  in 

if 

u9>0 

then 

print 

” - " ; 

else 

print 

IS  II 

end 

if 

p  1070 

then 

beg  in 

if 

u  1 070 

then 

print 

else 

pr  int 

end 

else 

beg  in 

if 

u  1070 

then 

print 

" - " 

else 

print 

..  1. 

end 

if 

p  1 170 

then 

begin 

if 

u  1 1 70 

then 

print 

else 

print 

"****” 

end 

else 

beg  in 

i  f 

ul  170 

then 

print 

" - " 

else 

print 

II  ll 

end 

if 

p  1 270 

th  en 

beg  in 

i  f 

u  1 270 

then 

print 

else 

print 

end 

else 

begin 

if 

u  1 270 

then 

print 

" - " 

else 

print 

ll  ll 

end 

if 

p  1370 

then 

beg  in 

if 

ul370 

then 

print 

e  1  se 

print 

" ##**" 

end 

else 

begin 

if 

U1370 

then 

print 

" - " 

else 

print 

ll  II 

end 

if 

p  1470 

then 

beg  in 

if 

u  1 470 

then 

print 

else 

print 

"****" 

end 

else 

beg  in 

if 

u  1 470 

then 

print 

" - " 

else 

print 

ll  II 

end 

if 

p  1 570 

then 

beg  in 

if 

u  1 570 

then 

print 

M 

else 

print 

*' **■»*'* 

end 

else 

begin 

if 

u  1  570 

then 

print 

" - " 

else 

print 

ll  II 

end 
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if  pi 650  then  begin  if  ul6>0  then  print  else  print  "****";  end 

else  begin  if  ul6>0  then  print  " - else  print  '*  end 

print  "  !  " 
end 

print”;  "i 

if  ssnd_defl>0  then  begin  print  ssnd_defl  using  ”  ####”; 

if  ssnd_conlO”  "  then  print  ssnd_conl;  else  print  “  “<  end 

if  ssnd_def2>0  then  begin  print  ssnd_def2  using  "  ####“; 

if  ssnd_con20"  "  then  print  ssnd_con2;  else  print  ”  end 

if  ssnd_def3>0  then  begin  print  ssnd_def3  using  "  ####”; 

if  ssnd_con30"  "  then  print  ssnd_con3;  else  print  “  end 

if  ssnd_def4>0  then  begin  print  ssnd_def4  using  "  ####”; 

if  ssnd_con40"  ”  then  print  “-"i  ssnd_con4;  else  print  ■'  end 

if  ssnd_def3>0  then  begin  print  ssnd_def3  using  "  ####”; 

if  ssnd_con30"  ”  then  print  ssnd_con3;  else  print  ”  end 

if  ssnd_def6>0  then  begin  print  ssnd_def6  using  “  ####"; 

if  ssnd_con60”  "  then  print  ssnd_con6;  else  print  "  end 

if  ssnd_def7>0  then  begin  print  ssnd_def7  using  "  ####”; 

if  ssnd_con70"  ”  then  print  ssnd_c  on7;  else  print  “  end 

if  ssnd_def8>0  then  begin  print  ssnd_def8  using  "  ####”; 

if  ssnd_con80"  "  then  print  ssnd_con8;  else  print  "  "•  end 

print  column  67. “ ! " , c o 1 umn  132.  "I" 

let  eval  =  eval+1 
if  eval  *  20  then  begin 

print  "I”,  column  67,  "  ;  column  132, 

print  ”  - 


skip  to  top  of  page 
end 

page  trailer 

print  "Legend:  ",  column  48.  "***•*•*  UNCLASSIFIED  *♦***" 
print  ”  ****  -  Funded  Procurim*nt“, column  100, date. 2  spaces. time 

print  "  -  -  Unfunded  Procurement"; 

if  pletter  ■  "Z”  then  print  column  60. pno 

else  print  column  60, p letter, pno  using  "###" 

let  pno  =  pno+1 


end 
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<  7/10/86  LRRDP/3DP  alignment  r*port  for  1936  BDP  def ic line ies 
7/13/86.  changed  uniwkp_wc  to  uniwkp_srf.  > 

database  tramp  and 

d*f In* 

variable  cont  tgpe  integer 

variable  pno  tgpe  integer 

variable  flag  type  integer 

paramCll  plotter  type  character  length  1 

paramCZ]  code  tgpe  integer 

paramCSl  name  tgpe  character  length  12 
end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  "b <J pa  1  i gnmt .  ou t " 
end 

read  into  d 
dcl_def 
def  x_83 

uihere  dcl_name  *  name  and  dcl_code  =  code 
joining  dcl_def  =  def* _86 
end 

read  into  e 
d 

ssndef_ssn  ssndef _cont_value 

where  ssndef _c ont_va lu*  <>  "  "  and  ssndef_cont_value  <>  "X" 
joining  d.dcl_def  =  ssndef_def 
end 

read  into  c 

e 

lrr dp_sg s_i d *  lrrdp_title 
ssn_tradoc_pro 

joining  e.  ssndef_ssn  ■  lrrdp_ssn 

and  e.  ssndef_ssn  »  optional  ssn_ssn 

end 

read  into  b 
c 

un iwkp_srf 

wkpkg_cmd  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no  wkpkg_title 
joining  c, lrrdp_sgs_id x  ■  optional  un i wk p_sgs_i d * 

and  un iwkp_wkp kg _ i d i  »  optional  wkp k g_wk psg s_i d * 

end 

sort  bg  dcl_def  lrrdp_pdip  ssnd*f_ssn 

wkp  kg_cmd  wkpkg_p*  wkpkg_proj  wkpkg_l*sk  wkpkg_no 
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•  nd 


format 

pag*  header 

print  column  47,  '•**■***  UNCLASSIFIED  **♦**" 

•  kip  2  1  in** 

print  column  49, “LRRDP/BDP  1986  ALIGNMENT  FOR  ", nam*; 
if  cont  *  l  then  print  “  (continued)”  el**  print 
let  cont  »  1 
•kip  2  line* 

print  2  space* ■  "BOP  DEFICIENCY:  1986 :  ” ,  dc l_d*f ,  3  s pac •*■  ” 1983:  ",  def x _8S 

*  k , p  2  line* 

print  2  *pace*. "PDIP-INCR", 10  ipac •*> “NS I/SSN/PE  PR0J">23  spaces, 
"PROCRAM", 23  space*,  "PROPONENT",  13  space*,  "CONT  VALUE" 

print  1  *pace,  “ - ",8  spaces," - “,23  spaces, 

“ - ",23  spaces,  " - ",  13  space*,  " - " 


page  trailer 
ik ip  2  lines 

print  column  47,  '•***♦*  UNCLASSIFIED  ****♦" 

print  column  100,  date, 2  spaces, time 

if  plett*r«"Z"  then  print  column  60, pno 

els*  print  column  60, p  letter,  pno 

using  "###"  let  pno  *  pno+1 

before  group  of  dcl_def 
let  cant  »  0 
skip  to  top  of  page 

before  group  of  lrrdp_pdip 
let  flag  -  O 

before  group  of  ssndef_ssn 
skip  1  1  ine 

if  flag  »  0  then  begin 

print  3  spaces .  Ir r dp _pd i p C 1 ,  43 ,  lrr d p_p d ip C 3,  63; 

let  flag  »  1 
end 

els*  print  10  spaces; 

print  11  spaces,  ssndef_ssn,  13  spaces,  Irr dp_t  1 1 le C 1 , 433 , 9  spaces, 
ssn_tradoc_pro,  22  spaces,  ssndef _cont_value 

before  group  of  u»kpkg_no 

if  uikpkg_cmd  O  "  *  then  begin 

print  column  28,  wkp kg_emdC 1,  83,  l  space, wkp kg_p *,  1  spac e,  wkp k g_pr o j ,  1  space, 
ukpkg_taskCl,  43,  1  space, 1  spac e,  uikp kg_no,  3  spaces,  wkp kg_t i tl eC 1, 303 . 

8  spaces,  uniwkp_srf  using 

end 
•  nd 


D-8 


Mag  1©  LI 


bpc»3  Page  1 


Bill  Pagur  Report 

5/15/86  bill  pager  report  taken  from  fundwpbdp2 
5/ 16/86  changed  titles,  added  command  parameter. 


Added  running  subtotals, 
changed  the  bpcss  file.  > 


database  mamp  end 
define 


var i ab  1  e 

png 

type 

int eg er 

variable 

p  g end 

type 

integer 

var i ab  1  e 

cn  t 

a. 

integer 

vanab  1  ■? 

?G 

type 

long 

var i ab  1  e 

5  1 

type 

long 

variab  le 

o  2 

type 

long 

var i ab  1  e 

s  3 

type 

Long 

variab  1  e 

s4 

type 

long 

variable 

^ 

type 

1  ong 

variable 

3  C' 

type 

long 

variable 

s  7 

type 

long 

paramClj 

p  letter 

type 

c  h  a  r  a  c  t 

paramC2I 

c  md 

type 

c  h  a  r  a  c  t 

end 

input 

p  r  q  (r  p  t 

end 


pro  using  "Please  enter  the  starting  page  number 


output 

left  me rg in  0 
right  me rrm  131 
report  to  "bpcss 
end 


out' 


read  into  b 
bpcss 

where  b  p  '*  s  ?  md  matches  ■:  md 
end 


sort  bg  bpcss _b dp  descending  end 
f  o  r ma  t 


page  header 

print  column  47,  "******  UN  CLASSIFIED  ****** 
skip  2  lines 

print  column  48,  "CSS  N  TO  l  GDP  WORKPACKAGE  SILLPAYERS" 
print  column  48,"  WITH  CUMULATIVE  TOTALS" 

skip  2  lines 

print  column  87, "FUNDED  DEVELOPMENT  SCHEDULE" 

print  "  - 


print 

print 


PE/PROJ/TASK/WKPKG", 5  spaces, "TITLE", column  67, 

FY86  FY87  FY88  FYB9  FY90  FY9 1  FY92  FY93 


col umn  67, " ! " , col umn  132, 


print 


fiaq  !•: 


41  1 -86  bp  :3a  Pag® 


let  p  g  e  n  d  =  0 

page  trailer 

og®na  =  0  then  begin 
print  " - -  — 


end 

else  skip  1  line 
skip  2  lines 

print  co  Iv. tin  47.  "  ■*■*■**■»>♦  U  N  C  L  A  5  S  I  F  I  E  D 

print  column  ICO.  date. 2  spaces,  time 

if  p  letter  =  !,Z“  then  print  column  60.  pno 

else  print  col umn  60 . p letter,"-" .pno  using  " ### " 

let  pno  *  Drier  1 


*-*■***■* 11 


on  last  re c 
print  '*  - 


let  pgend  =  1 


;r  bp  css _b dp 


p  r  i 

r.  t  "  ! 

'•bpcss^bop  usi 

ng  "t*## 

.  b  p  c  ss 

_t  1 1 leC  1 , 

55  3.  col  umn  67,  "  !  "  ; 

i  f 

b  p  C  S  3 

_ fO'O  then  print 

I>pcs3_f0 

using 

else 

print  " 

if 

b  pc  3  3 

_f  1 : 0  then  print 

b  P  C  5  9_f  1 

using 

"#*##### 

else 

print  " 

l  f 

b  P  C  3  5 

_fi:-0  then  print 

b  p  c  ss_f  2 

us  ing 

"*###**# 

else 

print  " 

l  f 

b  p  C  5  3 

_f  370  then  print 

b  p  c  3  s_f  3 

using 

else 

print  " 

i  f 

b  pc  5  S 

_r 4; 0  then  print 

bpcss_T4 

using 

else 

print  " 

i  f 

b  p  C  S  3 

_f  5  7  0  then  print 

b  p  c  s  s  _f  5 

using 

<•####### 

else 

print  " 

if 

b  P  C  3  3 

_f 610  then  print 

b  p  c  3S_f  6 

using 

"###*### 

else 

print  " 

i  f 

b  p  C  3  s 

_f 7 Z- 0  then  print 

b  p  c  s  s  _#  7 

using 

"####### 

else 

print  " 

P~i 

n  t  "  J 

" 

print  "  1 

"  •  5  spaces,  b  pc  3 

3_cmd.  1  spate. 

b  p  c 

33_pe,l  space,  bp 

C  s  s  __p  r  o  j  .  1 

space 

.  bpcss^task 

clipped. 1  space 

b  p  c 

3  3  jj V p  V g ,  column 

55,  "CUM  TOTAL.  ", 

column  67, 

• 

" ; 

let 

30  = 

sO-*-b  p  c  s  s_f  0 

let 

Si  * 

3l-bpC3S_fl 

let 

s2  - 

s2-b  p  c  ss_f  2 

let 

s3  - 

3  3-rppcss__f3 

let 

s  4  ® 

3  4-*-b  P  c  3  S  __f  4 

1  e  t 

3  5  = 

3  5^b  p  C  3  S_f  5 

let 

30  = 

ja  +  b pcs  3 _f 6 

let 

5  •  = 

s7  +  b  p  C  3 S  _r  T 

print  30 

using  "####### 

sl  using 

"#######  ", s2 

using  " 

*######  ", 

s3 

using  "  ####### 

“  ■  3  A  using 

"#######  ", s5 

using  " 

*######  ", 

3  t 

using  "####### 

",s7  using 

"#*##### 

print 


column  67- 


■col  umn  1 32. 
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<  Reverse  or  Sill  Payer  Report  -  Decision  Aid 

5/15/86  bill  payer  report  taken  from  fundwpbdp2.  Added  running  subtotals. 
5/16/86  changed  titles,  added  command  parameter,  changed  the  bpcss  file. 
5/16/56  taker,  from  bpcss  bill  payer  report  and  changed  title  and  sort  > 

database  mamp  and 


define 

variable  pno  type  integer 

variable  cgend  type  integer 

variable  c n t  type  integer 

variable  a  0  type  long 

variaole  > 1  type  long 

variable  s  2  type  long 

variable  s3  type  long 

variable  =4  type  long 

variable  s5  type  long 

variable  s  6  type  long 

variable  s  7  type  long 

para mill  plotter  type  character  length  1 
paramCSl  cud  type  character  length  12 


end 


input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  "bocssa.  out" 
end 

read  into  b 

bpcss 

where  bpcss _cmd  matches  cmd 
end 

sort  by  bpcss _b dp  end 
forma  t 


page  header 

print  column  47,  ”*•*<*■**  UNCLASSIFIED  *•###*# 
skip  2  lines 

print  column  47,  "CSS  1  TO  N  3 DP  WORKPACK. AGE  DECISION  AID 
print  column  47,  "  WITH  CUMULATIVE  TOTALS" 

skip  2  lines 

print  column  87, "FUNDED  DEVELOPMENT  SCHEDULE" 

print  "  - 


print 

print 


PE/PROJ/TASK/WKPKG". 5  spac es. “ TITLE" . c o 1 umn  67. 

9*86  FY87  FY88  FY89  FY90  FY91  FY92  FY93 


D-l  1 


May  1  o 


1  -66 


bpc > 33  Page  2 

print  " ! " .co l umn  67,  "  !  "  .  column  132, 
let  p  g  end  =  0 

page  trailer 

if  pgend  »  0  then  begin 

print  '*  - - - 


end 

else  s  k  : p  1  line 
skip  2  lines 

print  caiuitin  47,  " *♦♦*♦•» *•*  \j  N  C  L  A  S  S  I  F  I  E  D  **♦*■»* 

print  column  100, date, 2  spaces- time 

if  pletter  =  “2”  then  print  column  60,  pno 

else  print  column  6C»  p  letter#  "  —  pno  using  "###" 

let  pno  ~  jnC'+l 

on  last  record 

print  "  - - - - - 


let  ogerd  =  1 


before  group  of  Press __bsp 


P  r 

1  n  t 

1  b  p  c 

3  3  _b  3  o  usir 

g  "### 

,  b  o  c  ss 

_t i 1 1 e  C  1 ,  553,  column  67,  "  !  " ; 

1  fi 

0  p  C  3  5 

£ ‘  •“ 

then 

print 

b  o  c  ss_f G 

us  mg 

"####*##  » 

else 

print  " 

I  f 

Sp:ss 

_f  i :  o 

then 

print 

b  p  c  s  s_f  1 

using 

"#######  " 

else 

print  " 

1  f 

tpcss 

_r*2.'  0 

t  n  en 

print 

b  p  r 5  s_f 2 

using 

■■#######  •• 

else 

print  " 

If 

bpcss 

_f  j.'-0 

then 

print 

b  p  C  3  3  _f  3 

using 

"#######  •• 

else 

print  " 

1  f 

bpcu 

_f4.  C 

then 

print 

b  p  r  5  s  _f  4 

using 

"##*##*«  •• 

else 

print  " 

l  f 

bpcis 

Irs:o 

then 

print 

bpcss_f5 

using 

”##«####  ■■ 

else 

print  " 

1  f 

b  p  C  3  5 

- cT  0 

then 

print 

b  p  c  s  s_f  6 

using 

„«««####  » 

else 

print  " 

if 

b  p  c  s  s 

0 

then 

print 

b  p  C  3  3  _f  7 

using 

"####### 

else 

print  " 

print  "  :  " 

print  "  •  5  spaces,  bpcss^cmd.l  space, 

bpcss_pe,l  space,  bpcss_proj,l  space,  bpcss_t ask  clipped,  1  space, 
bpcss_'jkpkg.  col  umn  55,  "CUM  TQT  AL  ",  col  umn  67,  ; 


let 

3  0 

= 

3 Orb  P  t  3  3_-0 

let 

3  1 

= 

3l-bp-SS_f 1 

l  e  t 

s  2 

= 

32*bpC33_f2 

1  e  t 

3  3 

= 

s3rbp,5!_f3 

let 

34 

* 

4-rfc  P  t  3  3  _f  4 

let 

s  5 

= 

3  rr  tj  D  r  s  s_f  5 

let 

3  6 

= 

36+bpC3S_f6 

let 

s7 

= 

37+bpCSS_,7 

print  s 

0 

using  "  #######  ",  s  1 

using 

“#####** 

s 

3 

using  "####*##  s4 

using 

'•####### 

s 

6 

using  "#######  ",57 

using 

>'######* 

print  " 

;  ’ 

'•col  umn  67 ,  '*  !  *' ,  col  umn  1  32, 

*•  !  •• 

, s2  using  "####### 
,  s 5  using  "####### 


end 


i 

i 

l 

I 


i 


I 

I 

I 

i 
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{  This  program  creates  the  bill  payer  record  for  a  particular  mission  area.  > 
database  mamp  end 


define 


paramC 1 3 

b  a  s 

e  type 

integer 

p  aram  C  2  J 

code  type 

integer 

paramC31 

name  type 

character  length  1 

variable 

cnt 

tgpe 

integer 

variable 

V 

type 

character  length  1 

variable 

byr 

type 

integer 

var i ab  1  e 

f  0 

type 

long 

var table 

f  1 

type 

long 

var lab  1  e 

f  2 

type 

1  ong 

var lab  1  e 

f  3 

type 

long 

variable 

fd 

type 

long 

var table 

f  5 

type 

long 

var  table 

f  6 

type 

long 

variab  le 

f  7 

type 

long 

end 

output 

tOP  (Tl  a  r  'j 

:  r  0 

page  le" 

g  th 

32000 

left  itia  r 

d  m 

0 

right  marg in  122 
report  to  "bpdata  out" 
end 

read  into  a 
p c l_i d  x 

where  pc  I _c  ode  =  code  and  p  c  1  _n  a  m  e  =  name 

and  <pci_subcat  =  ”6. 3A"  or  pcl_subcat  =  "6.  3BM  or  pcl_subcat  =  "6.4" 
or  pci_subcat  =  "6.7") 

end 

read  into  b 

prior*! _ s core  prior2_nsys  | 

wkpkg_nc_idxwkpkg_pewk.  pkg__proju/kpkg_taskwkpkg_title  | 

joining  a  pci  _idx=wkpkg_proj_idx  j 

and  'ukp  kg_no_id  x  =  optional  p  r  i  or  2_w  k  p  k  g  _i  d  x  \ 

end 

read  into  d 

wk  p  f  _w k  p  i<  g  _ l  d  x  w  k  p  f  _y  r 
where  w  k  p  f  __f  u  n  d  >  0 
joining  b  wkpkg_no_idx 
end 

read  into  a 
b 

d  wkpf_yr  d.  u>kpf_fund 

joining  b  wkpkg_no_idx  =  optional  d . wk p f _wkp k g _i d x 
end 

sort  by  prior2_score  descending  prior2_nsys  descending 


wkpf_f und 
=  wkpf_wkpkg_idx 


I 
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wk  c  -  g  _p  e  ijj  k  p  k  g  _p  r  o  .}  u>  k  p  k  g  _t  a  s  k  u/  k  p  k  g  _n  o  ojkpf_gr  end 

f  or.-na  t 

before  groyp  f  w  k  p  k  g  _ n  c 
let  v  *  "  :  ” 

let  b  g  r  -  u;kpf_gr 
let  fO  *  ' 
iec  f \  =0 
let  f  2  = 
let  f  2  =  ■; 

Tat;  r4  —  0 

let  f  5  -  C 
let  fo  =  ■: 
let  f  7  =  0 
let  cnt  -  cnt+l 

print  cnt-  v .  *<jjkpkg_title«  v .  u>kpkg_cmd.  v »  w  k  p  k  g  _p  e »  v.  wkpkg_proj,  v  * 
wk3kg_task,  v .  ukp  kg^no,  v; 

a  *  t  e  r  group  of  ii)kpkg_no 

print  f  0 »  v.  fl.  V/  f  2 »  v ,  f  3  >  v »  f  4 ,  v »  f  5 »  v,  f  6 «  v ,  f7,  v 


£  o  r  e 

9" 

Ouc  Of  ukpf 

_g  r 

if  w  k  p  f 

r  =  base 

then  1  e 

t  fO 

=  uj  k  p  f  _ 

.fund 

else 

l  f 

w  k  p  f  _y  r  = 

bas?+l 

then 

let 

f  i 

ujk  p  f _f und 

else 

I  f 

v  k  p  ^  _y  r  * 

base  ^2 

then 

let 

f2 

= 

u;k  p  rotund 

els? 

if 

p  f  _g  r  = 

b  a  s  e+3 

then 

let 

f  3 

wkpf_fund 

else 

1  * 

= 

b  a  3?  +  4 

then 

1  e  t 

1=4 

at 

wk  p f _f und 

else 

1  f 

uj  k  p  f  _'j  r  = 

base+5 

then 

let 

f  5 

wk  p f__f  und 

else 

l* 

'u  k  P  r  _y  r  * 

base  •*■6 

then 

let 

f6 

wkpf— fund 

else 

l  f 

w  k  p  f  _y  r  = 

base+7 

then 

let 

f  7 

SS 

wkpf_fund 

end 
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<  System  Check  for  a  Command  and  a  mission  area 
Modified  3/23/86.  changed  to  mamp  database.  > 

database  mamp  end 

define 

variable  total_fund 
paramCll  code 
paramC21  name 
paramC3J  cmd 
end 

output 

left  margin  0 
right  margin  1 32 
report  to  " cksyscmd  out" 
end 

read  into  b 
sc l_ssn 

where  scl_code  =  code  and  scl_name  =  name 
end 

read  into  c 
b 

ssn  hipri_title 
where  ssn_amc_mgr  =  cmd 
joining  bscl_ssn  =  optional  ssn_ssn 
b  scl_ssn  *  hipri_ssn 

end 

read  into  a 
c 

lrrdp_ssn 

lrrdp_procfl  irrdp_procf2  lrrdp_procf3 
lrrdp_procf4  lrrdp_procf5  lrrdp_procf6 
lrrdp_procf7  lrrdp_procf8  lrrdp_procf9 
lr  r  d  p  _p  r  oc  f  10  1  r r  d p _p  r  oc  f  1 1  1  r r  d p _pr  oc  f  1 2 
lr r d p _p r oc f 13  1 r r d p _p r oc f 1 4  lrrdp_proc f 1 5 
lrrdp_procfl6 
s  sndro  1 1 
assr 


joining 

c  sc  1 

_ssn 

■  opt  i  ona 1 

lrrdp^ssn 

and 

c.  sc  l 

_ssn 

*  optional 

s5nd_ssn 

and 

c.  sc  1 

_s  sn 

»  optional 

assr_ssn 

end 

read  into  b 

a 

wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_title 
wkpkg_subcat  wkpkg_cmd  wkpkg_no  wkpkg_pri  wkpkg_lab 
wkpkg_trans_date 

joining  a.  scl_ssn  «  optional  wkpsys_ssn 

and  wk p sy s_wk p k g_i d *  «  optional  <fk  p  k  g  _wk  p  sy  s_i  d  x 

end 

I 


type  integer 
type  integer 

type  character  length  12 
type  character  length  12 


I 

I 
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sort  by  s  sn  _amc  _mg  r,  s  c  l  _s  sn ,  ink  p  k  g  _cmd ,  ink  p  It  g  _s  ub  c  a  t  d  tie  end  ing , 
w  k  p  k  g  _p  e ,  uikpkg_proj,  ui  k  p  k  g  _n  o 
end 

forma  t 


page  header 

print  column  47,  '•****♦*  CONFIDENTIAL  ****■*•*" 
skip  2  1 ines 

page  trailer 
skip  1  line 

print  column  47,  "*■****■*  CONFIDENTIAL  **•*•***" 
skip  1  line 

print  60  spaces,  pageno 


before  group  of  scl_ssn 
skip  to  top  of  page 

print  20  spaces,  "SSN:  ",  sc l_s sn,  20  spaces,  "TITLE:  "; 

if  hipri_title  =  “  then  print  " _ _" 

else  print  hipri_title 

skip  1  line 

print  "Associated  SSN's:"; 

if  assr_ssn  O  "  "  then  print  4  s p ac es,  a s sr _ssn 1 , 4  s pac es ,  as sr _s sn2. 
4  spaces,  assr_ssn3,  4  spaces, assr_ssn4,  4  spaces.  assr_ssn5, 

4  spaces,  assr_ssn6,  4  spaces, assr_ssn7,  4  spaces,  assr_ssn8, 

4  spaces,  assr_ssn9,  4  spaces,  assr_ssnlO 

else  print  4  spaces," _ ",4  spaces," _ ",  4  spaces," _ " 

skip  1  line 

print  "Mission  Area:  ", 

if  ssn_da_ma  =  "  "  then  print  “ _ 

else  print  ssn_da_ma; 

if  ssn_tradoc_ma  =  “  "  then  print  "/ _ 

else  print  ssn_tradoc_ma; 

print  column  80. "AMCMSC: 

if  ssn_amc_msc  =  "  "  then  print  “ _ " 

else  print  ssn_amc_msc 

print  "Commodity  Line: 

if  ssn_com_line  =  "  "  then  print  “ _ "; 

else  print  ssn_com_l ine; 
print  column  80, "AMC  Manager:  “i 

if  ssn_amc_mgr  *  “  "  then  print  " _ " 

else  print  ssn_amc_mgr 
print  "Cross  Functional  Area:  "; 

if  ssn_*f uncarea  =  "  "  then  print  " _ "; 

else  print  s sn_x f uncar ea; 
print  column  80, "TRADOC  Proponent:  ", 

if  ssn_tradoc_pro  =  "  "  then  print  " _ ” 

else  print  ssn_tradoc_pro 


print  " Ac qu i s  i  t  i  on  Type: 


if  s s n _ 

acq_code  =  1 

then 

pr  int 

"Base 

else 

i  f 

ssn_acq_code 

3 

2 

then 

print 

else 

if 

s  sr,_ac  q_c  od  e 

a 

3 

then 

print 

else 

i  f 

s sn.  ac (_code 

= 

4 

then 

print 

else 

i  f 

s  sr_acq._c  od  e 

3 

5 

then 

print 

e  1  se 

if 

ssn_acq_code 

= 

6 

then 

print 

Case”: 

"Type  Classified"; 

"Dove  1 opment 
"PIPs"; 

"Technology  Demonstrators"; 
"Broad  Base  Tech  Area"; 
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else  if  ssn_acq_code  »  7  then  print  "Requirement  Above  Corps"; 
else  print  " 

print  column  80, "Req.  Document: 

if  ssn_req_doc 1  =  "  "  then  print  " _ ,  “ ;  else  print  ssn_req_docl 

if  ssn_req_doc2="  "  then  print  " _ .  “;  els*  print  ssn_req_doc2 

if  ssn_req_doc3="  "  then  print  “ _ >  “  else  print  ssn_req_doc3 

skip  1  line 

print  "DEFICIENCIES: 

if  ssnd_ssnO"  “  then  begin 

if  ssnd_defl>0  then  print  ssnd_def 1,  ssnd_conl; 

if  ssnd_def2>0  then  print  ",  ",  ssnd_d ef 2,  ,  ssnd_c on2; 

if  ssnd_def3>0  then  print  ",  s snd_d ef 3,  s snd_c on3; 
if  ssnd_def4>0  then  print  ",  ",  ssnd_d*f4,  ssnd_con4; 

if  ssnd_def3>0  then  print  ",  ",  ssnd_def3,  ssnd_con5; 

if  ssnd_def6>0  then  print  ",  “,  ssnd_def 6,  ssnd_con6; 

if  ssrtd_def7>0  then  print  ",  ",  ssnd_def 7,  ssnd_con7; 

if  ssnd_def8>0  then  print  ",  ",  s snd_d e f S,  ssnd_con8; 

print  "  "  end 

else  print  " _ - _ ,  _ - _ ,  _ - _ ,  _ - _ , 

skip  2  lines 
print  "DESCRIPTION:"; 
if  ssn_ssnO"  "  then  begin 

print  s  s  n  _d  e  s  c  C  1 ,  1 20  3  clipped 
print  12  spaces.  ssn_desc C 121,  2401  clipped 
print  12  spaces.  ssn_desc C241, 3603  clipped 
print  12  s p ac es .  s sn_d esc C361 ,  4803  clipped 
print  12  spac es.  ssn_d esc C481 ,  6003  clipped  end 
else  begin 

print  " _ 

print  12  spaces. " _ 

print  12  spaces, " _ 

print  12  spaces," ______________________ 

print  12  spaces, " _ 

end 

skip  2  lines 

print  "PROCUREMENT  FUNDING  DATA" 
if  lrrdp_ssnO“  "  then  begin 
skip  1  1 ine 

print  “YEAR  ",3  s pac e s . "FUNDED" 
print  "1986  ",  lrrdp_procfl 

print  "1987  ",  lrr d p_pr oc f 2 

print  "1988  ",lrrdp_procf3 
print  "1989  ",  I r rdp _p r oc f 4 

print  "1990  ",  lrrdp _procf5 

print  "1991  “ ,  1 r r d p _p r oc f 6 

print  "1992  ",  Irrdp_procf7 

print  "1993  ",  lrrdp _procf8 

print  "1994  " .  lrr d p_proc f 9 

print  "1993  " .  1 r r d p _p r oc f 10 

print  "1996  " .  1 r r d p _p r oc f  1 1 

print  "1997  ",  lrrdp _procfl2 

print  "1998  ",  1 rr dp _pr oc f 13 

print  “1999  ",  lrrdp _procfl4 

print  "2000  ",  lrr dp _pr oc f 1 3 

print  "2001  “ ,  lrr d p _pr oc f 16 

end 
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•Is#  b#gin 
skip  1  1  in# 

print  "YEAR  FUNDED  " 

print  "1986  " 

print  "1987  " 

print  "1988  _ 

print  "1989  " 

print  ”1990  _ 

print  "1991  “ 

print  "1992  “ 

print  "1993  “ 

print  "1994  “ 

print  "1993  “ 

print  "1996  “ 

print  "1997  _ 

print  "1 998  _ 

print  "1999  _ 

print  "2000  “ 

print  "2001  _ 

end 

skip  2  lines 

print  "WORKPACK AGE  DATA" 
skip  1  line 

print  "PE  PROJ  TASK  SUB  WKPKG  TRAN  COMMAND  LAB  PRI 

skip  1  line 

on  every  record  {before  group  of  u)kpsys_uikpkg> 
if  tekpkg_peO"  "  then  print  wkpkg_p#,2  spaces: 
else  print  " _  " ; 

if  wkp  kg_pro  j<>"  "  then  print  tukp  k  g_pr  o  j .  3  spaces; 
else  print  " _ 

if  wkpkg_taskO"  "  then  print  u/kpkg_task  C 1.  4],  2  spaces; 

•  Is#  print  " _  " ; 

if  titkp kg_subcat<>"  “  then  print  kikp  kg_subeat.  2  spaces; 

•  lse  print  " _  “ ; 

if  ukpkg_noO"  "  then  print  wkpkg_no.2  spaces; 
else  print  " _  " ; 

if  uik  p  k  g  _tran  s_da  t  eO“  “  then  print  uk  p  k  g  _tr  an  s_d  a  t  e .  2  spaces; 
else  print  " _  “ ; 

if  wkpkg_cmd<>"  “  then  print  wkpkg_cmdCl<83.2  spaces; 
else  print  " _  " ; 

if  uikpkg_labO"  "  then  print  u»kp  kg_lab  C 1 . 83<  2  spaces; 
else  print  " _  " ; 

if  uikpkg_pr  ioo  then  print  wkpkg_pri  using  "###",  3  spaces; 
els#  print  " _  " ; 

if  wkpkg_titIeO"  "  then  print  wkpkg_titl# 

else  print  ", _ " 

end 


TITLE 
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<  Check  for  Workpackages  not  linked  to  sgstems. 

3/29/86.  changed  to  mamp  database. 

7/24/86  revised  to  make  generic.  > 

database  manp  end 

define 

paramCH  code  tgpe  integer 
paramC21  name  tgpe  character  length  12 
end 

output 

left  margin  0 
right  margin  132 
report  to  " c kwkp k g . out “ 
end 

read  into  c 
pc l_id  x 

where  pcl_code  *  code  and  pcl_name  «  name 
end 

read  into  a 

wk p k g_wk p s g s_i d x  wkpkg_lab  uikpkg_title 
joining  c.pcl_idx  »  wkp kg_pro j_idx 
end 

read  into  b 
a 

joining  a.wkpkg_wkpsgs_idx  =  wkpsgs_wkpkg_idx 
end 

assign  c  ”  a  minus  b  end 

sort  bg  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_.no  end 

format 

page  header 
print  column 
skip  2  lines 
print  "PE 
skip  1  1  ine 

page  trailer 
skip  1  line 
print  column  60. pageno 

before  group  of  wkpkg_no 

print  wkpkg_pe.2  spaces,  wkp kg_p r o j . 3  spaces.  wkpkg_task.  2  spaces, 
wkp kg_subcat.  2  spaces.  wkpkg_no, 2  spaces, 
wkp k g_cmd C 1 . 81.  1  space,  wkp kg_lab ,  2  spec es.  wkp k g_t 1 1 1 e 


43. name 

clipped. 

’*  FUNDED 

WORKPACKAGES  NOT 

LINKED 

TO  SYSTEMS" 

PROJ 

TASK 

SUB 

WKPKG  COMMAND 

LAB 

TITLE 

end 
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database  mamp  end 

<  Last  modified  2/6/86  to  add  mission  area  and  date-time  stamp. 

2.7.86  to  change  s snd esc_c ommod i ty . 

3/6/86  to  add  page  letter  option  and  page  number  input. 

3/6/86  changed  to  mamp  database. 

6/13/86  deleted  command  sort. 

7/24/86  merged  w/  comindexl  to  have  parameter  to  ind icate% whether  to  print 
column  for  profile.  > 

def ine 

paramCll  pletter  type  character  length  1 
paramC21  code  type  integer 

paramC31  name  type  character  length  12 

paramC4]  pro  type  character  length  1 

variable  pno  type  integer 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  “cornindex. out" 
end 

read  into  b 
sc l_ssn 

tuhere  scl_name  =  name  and  scl_code  =  code 
end 

read  into  a 
ssn_com_l i ne 

joining  b.scl_ssn  =  ssn_ssn 
end 

sort  by  ssn_com_line  end 
format 

before  group  of  ssn_com_line 

if  pro  =  "Y"  then  print  40  spaces;  else  print  30  spaces; 
print  ssn_com_l ine.  17  spaces.  " - 

if  pro  *  "Y"  then  print  17  spaces," - "  else  print 

page  header 

print  column  47,  "****■#*  UNCLASS  I  F  I  E  D  ******" 
skip  3  lines 

print  column  43. name  clipped,'*  COMMODITY  LINE  INDEX  IN  ALPHABETICAL  ORDER" 
skip  3  lines 

if  pro  *  “Y“  then  print  38  spaces;  else  print  48  spaces; 
print  "COMMODITY  LINE”, 10  spac es, "SUMMARY  PAGE"; 

if  pro  =  “Y"  then  print  7  spaces, "FUNDING  PROFILE"  else  print  "" 
skip  2  lines 
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page  trailer 
skip  2  lines 

print  column  47.  '•****♦*  UNCLASSIFIED 
print  column  100, date. 2  spaces, time 
if  p  letter58"!''  then  print  60  spaces,  pno 
else  print  60  spaces,  p  1  e tter pno  using  "###" 
let  pno  *  pno+1 

end 


****** 
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<  Command  to  Commodity  Lin*  to  System  to  Funding  Summary  > 

<  last  changed  2/6/86  to  add  mission  area  parameter  and  date-time  stamp 
2.7.86  add  page  letter  parameter,  change  major  system  to  commodity. 

3/6/86  changed  to  the  mamp  database. 

3/28/86  deleted  command  sort,  now  only  one  or  more  sheets  per  commodity. 
6/3/86  added  acquisition  strategy  from  new  com  file  and  sort  the  systems  by 
acquisition  cod*. 

6/6/86  added  system  pdip  at  the  expense  of  two  outyears  ***'s. 

6/9/86  changed  pdip  to  the  highest  priority  pdip. 

7/29/86  changed  to  unclassified  since  the  deficiency  numbers  are  no  longer 
classified.  > 

database  mamp  end 


define 


var lab le 

ent 

type 

integer 

var iab  1  e 

head 

type 

integer 

var lab le 

c  ont 

type 

integer 

var lab le 

break 

type 

Integer 

var iab 1 e 

obrea  k 

type 

integer 

var iab 1 e 

pno 

type 

integer 

paramC 1 1 

p  letter 

type 

character 

length  1 

paramC2J 

code 

type 

integer 

paramC3 ] 
end 

input 

name 

type 

character 

length  12 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  “ 
end 

output 

left  margin  O 
right  margin  132 
report  to  "commod.  out" 
end 

read  into  b 
s  c  1  _s  s  n 

where  scl_name  »  name  and  scl_eod*  “  code 
end 

read  into  a 
b 

ssn_acq_cod*  ssn_amc_mgr  ssn_com_lin*  ssn_tradoc_ma  ssn_da_ma 
s  sndr o  1 1 
hipri _pdip 
lrrdp_title 

lrrdp_procfl  lrrdp_proc f2  lrrdp_proef3  lrrdp_procf4 
lrrdp_procf3  lrrdp_procf6  lrrdp_procf7  lrrdp_procf8 
lrrdp_procf9  lrrdp_proef 10  lrr dp_proc f 1 1  lrr d p_pr oc f 12 
lrrdp_pr oc f 13  lrr dp _pr oe f 1 4 


joinit  g 

b.  sc  1 

m 

opt i ona 1 

ssn_ssn 

and 

b.  sc  1 

_S»fl 

m 

op  t iona 1 

ssnd_ssn 

and 

b.  sc  1 

_s*n 

m 

optional 

lrrdp_ssn 

and 

b.  sc  1 

_**n 

* 

optional 

hiprl_ssn 
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•  nd 

read  into  c 

4 

com_acq_strat 

acq,_tijp* 

joining  a.  ssn_eom_l  ine  »  optional  com_coir_lin« 
and  a.  ssn_acq_code  *  acq._code 

•  nd 

sort  by  un_cofli_lint  ssn_acq_c odt  scl_ssn  end 
format 

page  header 

let  cnt  ■  0 

print  column  47. "***#*  UNCLASSIFIED  ****♦" 
skip  2  lines 
print  column  46; 

if  ssn_com_line  O  “  "  then  print  ssn_com_line  clipped; 

else  print  “ _ 

print  COMMODITY  LINE  SUMMARY  FOR  “.name  clipped; 
if  eont  «  1  then  print  ”  (continued ) "  else  print  ““ 
let  cont  =  0 
skip  2  lines 
let  head  =  1 

page  trailer 

print  "Legend  column  47,  “***♦*  UNCLASSIFIED  *****•• 
print  "  ****  -  Funded  Procurement",  column  100,  date, 2  spaces, time 

if  pletter="Z“  then  print  column  60, pno 
else  print  column  60.  p  letter pno  using 
let  pno  »  pno+1 

before  group  of  ssn_com_line 
skip  to  top  of  page 
print  "Acquisition  Strategy: 
let  break  =*  110 

while  com_acq,_stratCbreak.  break  JO"  "  do  let  break  ~  break-1 
print  c om_ac q_strat C 1 .  break J 
let  obreak  »  break+1 
let  break  »  break+123 

while  com_acq_stratCbreak,  break  30"  "  do  let  break  -  break-1 
print  7  spaces,  c om_ac q_strat Cobreak,  brea k 3 
let  obreak  *  break+l 
let  break  ”  break+123 

while  c  om_acq_strat  Cbrcak ,  break  30"  ”  do  let  break  »  break-1 
print  7  spaces,  com_acq_stratCobreak,  break J 
let  obreak  »  break+1 
let  break  *  break+123 

while  com_acq_stratCbreak,  break  30“  “  do  let  break  »  break-1 

print  7  spaces.  com_acq_stratCobreak,  breakJ 

let  obreak  »  break+1 

let  break  *  break+123 

if  break>600  then  let  break  ■  600 

while  com_acq_stratCbreak,  break  JO"  *  do  let  break  «  break-1 
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print  7  spaces.  com_ac n_strat Cobreak,  brea k 3 
skip  1  1 ines 
let  cnt  ”  cnt+3 

after  group  of  ssn_com_line 

print  “  - “. 

It  _  ,  ,  .  ..  i  .  ■  —  _  ^  ; _ _ _  _ _ L _ _ ^  _  .  .  II 

before  group  of  ssn_acq,_code 
if  cnt  >  19  then  begin 
let  cont  »  1 

print  “'“.column  67.  “!". column  75.  "!“. column  132.“!“ 

print  "  - 


skip  to  top  of  page 
let  cnt  «  1 
end 

if  head  »  1  then  begin 

print  column  90,  “PROCUREMENT  SCHEDULE” 
print  "  - 


print  “!  SSN",  10  sp ac es,  " TITLE/DEFIC IENC IES " .  c o 1 umn  57.  “DA/TDC  MA“, 
column  67,"!  PDIP  ! “. 

“  86  87  88  89  90  91  92  93  94  95  96  97  98  99  1“ 

print  "! - 


let  head  »  0 
end 

print  “!", column  67.  “ i ",  column  75.  “  i  ",  column  132."!“ 
print  “  !  " ,  9  spaces, "*♦***  ",acn_type  clipped,"  **•***”, 
column  67,  “!“,  column  75. " ! “ . e o 1 umn  132."!" 
print  "!", column  67,  column  75,  " l ",  col umn  132,”!” 
let  cnt  »  cnt +2 

after  group  of  ssn_acq,_code 

print  “!", column  67.  ~! “,  column  75.  “ ! ", c o lumn  132."!“ 

before  group  of  scl_ssn 
let  cnt  ■  cnt+1 
if  cnt>21  then  begin 
let  cont  ■  1 

print  ".'“.column  67,  "  !  “,  co  l  umn  75.  “!“,  column  132."!" 
print  " - - 


skip  to  top  of  page 
let  cnt  “  1 
end 

if  head  ■  1  then  begin 

print  column  90.  "PROCUREMENT  SCHEDULE" 
print  “ - - — - 


print  "!  SSN",  10  spaces.  "TITLE/DEFICIENCIES",  column  57,  "DA/TDC  MA", 
column  67,"!  PDIP  !". 

"  86  87  88  89  90  91  92  93  94  95  96  97  98  99  ! " 

print  "I - - - 
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print  "  ".column  67.  “  !  ",  c  o  1  umn  73,  “  :  c  o  1  umn  132,"!” 
let  head  »  0 
end 

print  "!  “,scl_ssn,2  spaces,  lrrdp_ti tleC 1, 433,  1  space, 

ssn_da_ma.  “  f  “ .  ssn_tradoc_ma.  col  umn  67,  “  i  h  i  pr  1  _p  d  i  p  Cl,  43, 
hipri_pdipC3.  63, 

after  group  of  sel_ssn 

if  scl_ssn  matches  “4*"  then  print  column  93,  "<  Stock  Funded 
else  begin 


if 

group 

total 

of 

lrr d  p_proe  f 1>0 

then 

print 

"  *•***" ; 

else 

print  " 

i 

if 

group 

total 

of 

lrrdp_procf2>0 

then 

print 

"  •***  "  ; 

else 

print  “ 

•>  . 
t 

If 

group 

total 

of 

lrrdp_proc  f3>0 

then 

pr  int 

"  ****  "  ; 

else 

print  " 

M  . 
t 

1  f 

group 

tota  1 

of 

lrrdp _procf4>0 

then 

pr  int 

•***#*"; 

else 

print  " 

u  . 

1 

if 

group 

tota  1 

of 

lrrdp _proc  f 3>0 

then 

print 

"****"  j 

else 

print  " 

H  . 

( 

if 

group 

tota  1 

of 

lrrdp_proc  f6>0 

then 

print 

"#***"* 

else 

print  “ 

It  . 

1 

if 

group 

tota  1 

of 

lrrdp  jjr oc P7>0 

then 

print 

“  ****“; 

else 

print  " 

i 

if 

group 

total 

of 

lrrdp _p  r oc  fS>0 

then 

print 

"  ****  M ; 

else 

print  “ 

0 

if 

group 

tota  1 

of 

lrrdp  _procf9>0 

then 

print 

“  ****  M ; 

else 

print  " 

II  . 

0 

i  f 

group 

tota  1 

of 

Irrdp_procf 10>0 

then 

print 

;  else 

print  ” 

It 

if 

group 

tota  1 

of 

lrrdp_procfll>0 

then 

print 

"****• 

;  else 

print  " 

II 

if 

group 

total 

of 

lrrdp_procf I2>0 

then 

print 

"  ***•#•  * 

;  else 

print  " 

It 

if 

group 

total 

of 

lrrdp _procfl3>0 

then 

print 

'•***#• 

;  else 

print  “ 

II 

if 

group 

total 

of 

lrrdp_pr oc  f 14>0 

then 

print 

;  else 

print  " 

II 

end 

print  column  132,"!" 

print  "i  ",8  spaces.  ssn_amc_mgr C 1 ,  73; 
if  ssnd_defl>0  then  begin 


print  ssnd_defl  using  "  ####"; 


if  und_conl<>“  "  then  print 
if  ssnd_def2>0  then  begin 

print  ssnd_def2  using  “  ####“ 

ssnd_conli 

0 

else 

print 

II  . 

end 

if  ssnd_con20”  ”  then  print 
if  ssnd_def3>0  then  begin 

print  ssnd_def3  using  “  ####" 

ssnd_con2; 

I 

else 

print 

0 

end 

if  ssnd_con3<>"  "  then  print 
if  ssnd_def4>0  then  begin 

print  ssnd_def4  using  "  ##*#" 

ssnd_con3; 

i 

else 

print 

* 

end 

if  »»nd_con40“  "  then  print 
if  ssnd_def3>0  then  begin 

print  ssnd_def3  using  ”  ####" 

ssnd_con4; 

else 

print 

* 

end 

if  ssnd_con3<>"  “  then  print 
if  ssnd_def6>0  then  begin 

print  ssnd_def6  using  "  ####" 

ssnd_con3; 

; 

else 

print 

end 

if  ssnd_con6<>"  "  then  print 
if  ssnd_def7>0  then  begin 

print  ssnd_def7  using  ”  ####" 

ssnd_con6; 

else 

print 

end 

if  ssnd_con70"  "  then  print 
if  ssnd_def8>0  then  begin 

print  ssnd_def8  using  "  ####” 

ssnd_con7; 

0 

else 

print 

i 

end 

if  ssnd_ton80”  "  then  print 
print  column  67,  “ i “ .  c o lumn  73,“ 

ssnd_con8; 
i", column  132, 

else 

*1  I  II 

1 

print 

if  . 

! 

end  > 

end 
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<  Commodity  Profile  Report  Generator  part  1.  Total#  the  funded  and 
unfunded  rdte  iuor k p ac k ag es  appropriate  to  each  specific  commodity  line  > 

<  last  modified  2/7/86.  added  mission  area  parameter  and  changes  to  ssndesc. 
modified  3/28/86.  changed  to  mamp  database. 

7/21/86  changed  to  unique  u/orkpackage  linkage  to  systems. 

added  parameter  to  indicate  a  specific  commodity  line, 
deleted  85  and  added  93. 

7/23/86  changed  to  generic  years  and  fundpro  file  structure.} 
database  manp  end 
define 


paramC 1 1 

code 

type 

integer 

par amC2 1 

name 

type 

character 

length 

12 

paramC31 

com 

type 

character 

length 

10 

var iab  1  e 

V 

type 

character 

length 

1 

var lab  le 

f  0_t  b 

type 

long 

var iab  1  e 

uO_tb 

type 

long 

var  iab  le 

fO_dev 

type 

long 

var iab  1  e 

uO_d  ev 

type 

long 

var iab  1  e 

f  l_tb 

type 

long 

var iab  1  e 

u  1  _tb 

type 

1  ong 

var iab  1  e 

f 1 _d  e  v 

type 

long 

var iab l e 

u  1  _d  e  v 

type 

long 

va  r  i  a  b  1  e 

f2~tb 

type 

long 

var iab  le 

u2_tb 

type 

long 

var iab  le 

f2_dev 

type 

long 

var iab le 

u2_dev 

type 

long 

var iab 1 e 

f  3_tb 

type 

long 

var iab  le 

u3_tb 

type 

long 

var  iab  le 

f3_dev 

type 

long 

var iab  le 

u3_d  ev 

type 

long 

variable 

f  4_tb 

type 

long 

var  lab  le 

u4_tb 

type 

long 

var iab le 

f 4_d  ev 

type 

long 

var  iab  le 

u4_d  ev 

type 

long 

variable 

f  3_tb 

type 

long 

var iab  1  e 

u3_tb 

type 

long 

var iab le 

f  3_d  e  v 

type 

long 

var iab  1  e 

u3_dev 

type 

1  ong 

variab  le 

f  6_tb 

type 

long 

var  lab  1  e 

u6_tb 

type 

long 

variab  le 

f 6_dev 

type 

long 

var  iab  le 

u6_d ev 

type 

long 

variab 1 e 

f  7_tb 

type 

long 

var  iab  le 

u7_tb 

type 

long 

variab  le 

f 7_d  ev 

type 

long 

variab  le 

u7_dev 

type 

long 

end 

output 

top  margin  0 
left  margin  0 
page  length  32000 
report  to  "comprol.  out" 
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end 

read  into  a 
sc  1 _ssn 

where  scl_code  =  code  and  scl_naue  *  name 
end 

read  into  b 
a 

ssn_com_l ine 

where  ssn_com_line  matches  com 
joining  a.scl_ssn  »  ssn_ssn 
end 

read  into  c 
b 

lullPl<9_no_id*  wkpkg_subcat 

wkpfr_fO  wkpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f3  wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u3  wkpfr_u6  wkpfr_u7 
joining  b.scl_ssn  =  uniwkp_ssn 

and  uniwkp_wkpkg_idx  =  wkpkg_wkpsys_idx 
and  wkpkg_no_idx  ”  wkp f r_wkp k g_id x 

end 

sort  by  ssn_com_line  wkpkg_cmd  wkpkg_cat  wkpkg_no  end 
format 

before  group  of  ssn_com_line 
let  fO_tb  =  0 
let  uO_tb  *  0 
let  f 0_d ev  -  0 
let  uOJev  =»  O 
let  fl_tb  *  O 
let  ul_tb  =  0 
let  fl_dev  =»  0 
let  ul_dev  *  O 
let  f 2_tb  =  0 
let  u2_tb  =  O 
let  f2_dev  =  O 
let  u2_dev  *  0 
let  f 3_tb  =  0 
let  u3_tb  =  0 
let  f 3_d ev  =  0 
let  u3_dev  =  0 
let  f4_tb  =  0 
let  u4_tb  »  0 
let  f 4_d ev  »  0 
let  u4_dev  *  0 
let  f 3_tb  =  0 
let  u3_tb  =  0 
let  f 3_d ev  =  0 
let  u3_dev  »  0 
let  f 6_tb  »  0 
let  u6_tb  -  0 
let  f6  dev  »  0 
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let  u6_dev  =  0 
let  f7_tb  =  0 
let  u7_tb  =  O 
let  f 7_dev  =  0 
let  u7_dev  =  0 

before  group  of  wkpkg_no 

If  <iikpkg_subcat»"6.  1"  or  wkp kg _subcat-“6.  2"  or  uikp  kg_subcat-"6.  3A"  then  begin 
let  fO_tb  =•  fO_tb  +  u/kpfr_fO 
let  fl_tb  =  fl_tb  +  wkpfr_fl 
let  f 2_tb  »  f 2_tb  +  cukpfr~f2 
let  f 3_tb  =  f 3_tb  +  u/kpfr_f3 
let  f 4_tb  =  f 4_tb  +  uikpfr~f4 
let  f 3_tb  =  f 3~tb  +  uikpfr'fS 
let  f 6_tb  ■  f6_tb  +  wkpfr_f6 
let  f 7_tb  -  f 7~tb  +  wkpfr_f7 
let  uO_tb  =  uO_tb  +  tnkpfr_uO 
let  ul_tb  »  ul_tb  +  ukpfr_ul 
let  u2_tb  =  u2_tb  +  uikpfr_u2 
let  u3_tb  =  u3_tb  +  takpfr_u3 
let  u4_tb  =  u4_tb  +  u/kpfr__u4 
let  u3_tb  *  u3_tb  +  u/kpfr_u3 
let  u6_tb  =  u6_tb  +  <ukpfr_u6 
let  u7_tb  ■=  u7_tb  +  <nkpfr_u7 
end 

else  begin 

let  fO_dev  ■»  fO_dev  *  <ukpfr_fO 
let  f  1  _d  e  v  =  fl_dev  +  u/kpfr_fl 
let  f2_dev  =*  f2_dev  +  ukpfr_f2 
let  f3_dev  =  f3_dev  +  u/kpfr_f3 
let  f 4_d jv  »  f4_dev  +  iukpfr_f4 
let  f 3_dev  **  f3_dev  +  wkpfr_f3 
let  ffa_dev  =  f6_dev  ♦  wkpfr_f6 
let  f7_dev  =  f7_dev  +  uikpfr_f7 
let  uO_dev  *  uO_dev  +  iukpfr_uO 
let  ul_dev  =  ul_dev  +  w  k  p  f  r  _u  1 
let  u2_dev  »  u2_dev  +  <ukpfr_u2 
let  u3_dev  =  u3_dev  +  tukpfr_u3 
let  u4_dev  =>  u4_dev  +  iukpfr_u4 
let  u3_dev  =  u3_dev  +  wkpfr_u3 
let  u6_dev  =»  u6_dev  +  iukpfr_u6 
let  u7_dev  *  u7_dev  +  wkpfr_u7 
end 

after  group  of  ssn_com_line 
let  v»'‘  I  '• 

print  "0".  v.  ssn_com_l  ine<  v,  '•  ",v; 

print  f 0_tb .  v.  f l_tb,  v,  f2_tb.  v.  f3_tb,  v,  f4_tb.  v.  f3_tb,  v,  f6_tb.  v.  f7_tb.  vi 
print  uO_tb.  v.  ul_tb»  v,  u2_tb.  v.  u3_tb,  v»  u4_tb.  v.  u3_tb,  v.  u6_tb.  v.  u7_tb.  v; 
print  fO_dev,  v,  f  l_dev.  v,  f2_dev.  v,  f3_dev.  v.  f4_dev.  v.  f3_dev,  v,  f6_dev>  v.  f7_dev.  v; 
print  uO_dev,  v#  u  1  _iev<  v»  u2_d  e  v*  v»  u3_d  e  v«  v#  u4_dev»  v»  uS^ievi  Vi  u6_d tv»  v<  u7_d ev<  v 

end 


* 

f 

| 
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<  Commodity  Profile  Report  Generator  > 

Clast  modified  2/7/86.  added  page  letter  and  mission  area  parameters,  and 
date-time  stamp  on  output  and  changes  to  ssndesc. 
modified  5/28/86.  changed  to  mamp  database. 

7/21/86.  changed  fyS5  to  fyOl.  added  commodity  parameter. 

7/26/86,  changed  to  generic  rdte  funding  rollup  file  (from  comprol).  > 

database  mamp  end 

define 


paramC 1 1 

p 1 e  tter 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramC3] 

name 

type 

character 

length 

12 

paramC41 

c  om 

type 

character 

length 

10 

var iab 1 e 

pno 

type 

integer 

var  iab 1 e 

counter 

type 

integer 

variable 

tf 

type 

float 

variable 

i 

type 

integer 

var  iab  1  e 

x 

type 

long 

var iab  1  e 

xd  iv 

type 

long 

var iab 1 e 

f  orml 

type 

charac  ter 

length 

10 

var iab  1  e 

for  m2 

type 

charac  ter 

length 

10 

var  iab  1  e 

uf  X 

type 

character 

leng  th 

3 

var  iab  1  e 

ufd 

type 

character 

length 

3 

var  iab 1 e 

uf  p 

type 

charac ter 

length 

3 

variable 

f  X 

type 

c  h  ar ac  ter 

leng  th 

3 

var lab  1  e 

f  d 

type 

character 

length 

3 

var iab  1  e 

fp 

type 

c  harac  ter 

length 

3 

variable 

fl  jroc 

type 

long 

variable 

f  2  J>  r  oc 

type 

long 

var  lab  1  e 

f  3  jjroc 

type 

long 

var iab  le 

f  4 j,  roc 

type 

long 

var iab  1  e 

f  5  jiroc 

type 

long 

var  iab  1  e 

f  6  Jjroc 

type 

long 

variable 

f 7_proc 

type 

long 

var  iab  1  e 

f 8_p  roc 

type 

long 

var  iab  1  e 

f 9  jjr oc 

type 

long 

var  lab  l  e 

f  10_pr  oc 

type 

long 

var  iab  le 

fli _proc 

type 

long 

var  lab  le 

f 12 _pr oc 

type 

long 

var  iab  1  e 

fl3  Jiroc 

type 

1  ong 

var lab  le 

f  14  jj  r  oc 

type 

long 

var iab  1  e 

flS  Jiroc 

type 

long 

var iab  l e 

f  16  jiroc 

type 

long 

var iab  1  e 

ul  jjroc 

type 

long 

variable 

u2  Jiroc 

type 

long 

var  iab  l  e 

u3jjroc 

type 

long 

var  iab  l  e 

u4  jjroc 

type 

1  ong 

var  iab  1  e 

u5  jjroc 

type 

1  ong 

var iab  le 

u6  jiroc 

type 

long 

var iab  1  e 

u7  jj  roc 

type 

1  ong 

var iab  1  e 

u8  jiroc 

type 

long 

var lab le 

u9  jjroc 

type 

long 
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variable  ulO_prac  type  long 

variable  ull jroc  type  long 

variable  ul2_proc  type  long 

variable  ul3_proc  type  long 

variable  ul4_proc  type  long 

variable  ul3_proc  type  long 

variable  ul6_proc  type  long 

end 

input 

prompt  for  pno  using  "Pleas*  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  “compro2.  out" 
end 

r  ^d  into  c 
sc l_ssn 

inhere  scl_code  *  code  and  scl_nam*  =  name 
end 

read  into  d 
c 

ssn_com__l  in* 

inhere  ssn_com_l  in*  matches  com 
joining  c.scl_ssn  »  ssn_ssn 
end 

read  into  a 
d 

f undpro 

joining  d. ssn_com_l in*  *  optional  fp_commodity 
end 

read  into  b 
a 

lrrdp_procfl  lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf3  lrrdp_procf6 
lrrdp_procf7  lrrdp_procf8  Irrdp_procf9  lrrdp_procf 10  lrrdp_procf 1 1 
lrrdp_procf 12  lrrdp_procf 13  lrrdp_procf 14  irrdp_proc f 13  lrrdp_procf 16 
Irrdppr i_pri 

joining  a.  scl_ssn  ■  optional  lrrdp_ssn 

and  lrrdp_pdip  *  optional  Irrdppr i_p d ip 

end 

sort  by  ssn_com_lin*  scl_ssn  end 

format 

page  header 

print  column  47, *******  UNCLASSIFIED  ******" 
skip  2  lines 
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page  trailer 
skip  1  line 

print  column  47,  "******  UNCLASSIFIED  ******'• 

print  column  100, data, 2  spaces, time 

if  platter  =>  "Z"  than  print  column  62,  pno 

als*  print  column  62, p letter,  pno  using  "###•' 

let  pno  =  pno+1 

before  group  of  ssn_com_lin* 
skip  to  top  of  page 

print  40  spaces,  ssn_com_lin*  clipped, 

"  COMMODITY  LINE  FISCAL  SUMMARY  FOR  ",  name 
skip  1  line 

let  fl_proc  *  0 
let  f2_proc  «  0 
let  f3_proc  =  0 
let  f4_proc  »  0 
let  f3 _proc  »  0 
let  f6_proc  «  0 
let  f7__proc  *  0 
let  f8_prac  »  0 
let  f9_proc  =*  O 
let  flO_proc  =  0 
let  fll_proc  =  0 
let  f!2_proc  “  0 
let  fl3_proc  =  0 
let  f 14_p roc  ”  0 
let  f 1 3 _proc  »  0 
let  f!6_proc  «  0 

let  uljiroc  «■  0 
let  u2_proc  “  O 
let  u3_proc  *  0 
let  u4 _proc  »  O 
let  u3 _proc  “  0 
let  u6 _proc  »  O 
let  u7_proc  *  O 
let  u8 jiroc  »  0 
let  u9 _proc  =  O 
let  ulO_proc  ■  0 
let  ull_proc  »  0 
let  u!2_proe  »  0 
let  u!3 _proc  *  0 
let  ul4 _proc  “  0 
let  ul3 _proc  *  0 
let  ul6 _ proc  “  0 

after  group  of  scl_ssn 

if  lrrdppri_pri  <  1.0  or  lrrdppri_pri  >  800.0  then  beg 
let  ul _proc  “  ul_proc*lrrdp _proef l 
let  u2 jroc  ■  u2_proe+lrrdp_proef2 
let  u3 _proc  “  u3_proe+lrrdp_procf3 
let  u4_proc  *  u4 _proe+lrrdp_procf4 
let  u3 _proc  m  u3_proc  +  lrrdp_proe f 3 
let  u6 _proc  ”  u6_proc  +  Irrdp _proef6 
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let  u 7 _proc 
let  u8_proc 
l«t  u9_proc 
let  ulO_proc 
l«t  ull_proc 
let  ul2 _proc 
let  ul3 _proc 
let  ul4_proc 
let  ul5_proc 
let  ul6_proc 
end 

else  begin 
let  fl_proc 
let  f2_proc 
let  f3_proc 
let  f4_proc 
let  f3 jiroc 
let  f6 j>roc 
let  f7__proc 
let  f8_proc 
let  f9_proc 
let  flO_proc 
let  f 1 l_pr oc 
let  fl2 _proc 
let  f!3_proc 
let  fl4_proc 
let  fl3_proc 
let  fl6_proc 
end 


u7  _proc+lrrdp_procf7 
u8_proc+lrrdp  _procf8 
u9_pr oc  +  lrrdp  _p  roc  f 9 
1  ulO_proc+lrrdp_procf 10 
'  ul l_proc+lrr dp_pr oc f 1 1 
'  ul2 _proc+lrrdp _procfl2 
!  ul3 _proe+lrrdp_proef 13 
!  ul4_proc  +  lrrdp _procfl4 
1  ul 5_pr oc+1 rr dp_proc f 1 5 
!  ul6_proc+lrrdp_procf 16 


#1 _proc+lrr dp_pr oc f 1 
f2  _p roc+lrrdp_pr oc f2 
f3_proc+lrrdp_procf3 
f4_proc+lrrdp_procf4 
f3  _proc+lrr d p _pr oc f 5 
f6_proc+lrrdp  _procf6 
f7  _proc+lrrdp_procf7 
f8_proc+lrrdp  _procf8 
f 9_pr oc  +  irr d  p_proc f 9 
flO_proc+lrrdp_procflO 
fll_proc+lrrdp_procfll 
fl2  _pr oc+lr r dp_pr oc f 12 
f 13_pr oc+lr rdp _pr ocf  13 
f l4_proc+lrrdp  procfl4 
fl3_proc+I  rrdp_procf 13 
f 16_pr oc  +  lr rdp_pr ocf  16 


after  group  of  sin_co®_lin« 
let  forml  »  "*######*«  " 
let  f orm2  *  "(<<<<<<<*)'• 
let  ufj  »  -X — " 
let  ufd  -  "D — " 
let  ufp  »  "P — " 
let  fr  «  "XXX" 
let  fd  »  "ODD" 
let  fp  »  "PPP" 
let  tf  =*  0 


if  fQ_tb+uO_tb 
if  fl_tb+ul_tb 
if  f2^tb+u2_tb 
if  f3~tb+u3ltb 
if  f4_tb+u4_tb 
if  f 3~tb+u3_tb 
if  f6_tb+u6_tb 
if  f 7  tb+u7  tb 


> 

> 

> 

> 

> 

> 


tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

tf 

then 

let 

tf 

-  f Q_tb+uO_tb 
»  fl_tb+ul_tb 
»  f2_tb+u2_tb 

-  f 3_tb+u3_tb 

-  f 4~tb+u4_tb 

-  f S~tb+u3~tb 

■  f6~tb+u6~tb 

■  f 7~tb+u7~tb 


if  fO_dev+uO_dev 
if  f l_dev+ul_dev 
if  f2_dev+u2^dev 
if  f3_dev+u3_dev 
if  f 4_dev+u4_dev 
if  f3  dev+u3  dev 


> 

tf 

then 

let 

tf 

> 

tf 

then 

let 

tf 

> 

tf 

then 

let 

tf 

> 

tf 

then 

let 

tf 

> 

tf 

then 

let 

tf 

> 

tf 

then 

let 

tf 

«  f 0_dev+u0_dev 
«  f l_dev+ul_dev 
«  f 2_dev+u2_dev 
“  f3_dev+u3_dev 
«  f 4_dev+u4_dev 
«  f 3_dev+u3_dev 
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if  f6_d*v+u6_d*v  >  tf  th*n  l*t  tf  *  f 6_d*v+u6_d*v 

if  f 7_d*v+u7_d*v  >  tf  then  l*t  t f  »  f 7_d*v+u7_d*v 

if  ( f l_proc+ul_proc > /10  >  tf  then  l*t  tf  ■  ( f l_proc+ul_proc ) /10 

if  <  f2_proc+u2_proc  ) /")  >  tf  th*n  I*t  tf  *  ( f2_proc+u2  jroc  ) /10 

if  < f 3 _ppoc+o3 _proc)/.)  >  tf  th*n  l*t  tf  *  ( f 3_proe+u3_pr oc ) /10 

if  < f 4_proc+u4_proc ) /10  >  tf  th*n  l*t  tf  »  (f4 _proc+u4_proc ) /10 

if  (f3 _proc+u3 _pr ocl/10  >  tf  th*n  l*t  tf  *  (f 3_proc+u3_proc ) /10 

if  <  f 6 _proc+u6_proc ) /10  >  tf  th*n  l*t  tf  *  ( f6_proc+u6_proc ) /10 

if  ( f 7 _proc+u7 _proc)/10  >  tf  th*n  l*t  tf  *  ( f 7 _proc+u7_proe ) /10 

if  ( f8_proc+u8_proc ) /10  >  tf  then  l*t  tf  ■  < f 8_pr oc+u8_pr oc > /10 

if  (f9 _proc+u9 _proc)/10  >  tf  then  let  tf  ■  (f9_proc+u9_proc ) /10 

if  ( f lO_proc+u 10_proc ) /10  >  tf  then  let  tf  ■  (flO _proc+ulO_proe ) / 10 

if  ( f 1 l_proc*ul l_proc ) /10  >  tf  then  let  tf  »  ( f 1 l_pr oc+ul l_pr oc ) /10 

if  Cfl2 _proc+ul2_proc ) /10  >  tf  then  let  tf  =*  ( f  12_pr oc+u 12_proc ) /10 

if  ( f 13_proc+ul3_proc ) /10  >  tf  then  let  tf  «  (fl3 _proc+ul3 _proc)/10 

if  < f 14_pr oc+u 14_pr oc > /10  >  tf  then  let  tf  »  ( f 14_pr oc+ul4_proc ) /10 

if  ( f 13_pr oc+ul3_pr oc ) /10  >  tf  then  let  tf  *  ( f 13_proc+ul3_proc ) 710 

if  < f 16_proc+ul6_proc ) /10  >  tf  then  let  tf  »  ( f 16_proc+ul6_pr oc ) /10 

let  tf  »  tf*0. 8 
skip  3  lines 
let  x  =  1 5000 

if  tf>x  then  let  x  =*  30000 

if  tf>x  then  let  x  =  73000 

if  tf>x  then  let  x  =  130000 

if  tf>x  then  let  x  =»  300000 

if  tf>x  then  let  x  «  730000 

if  tf>x  then  let  x  =  1300000 

let  xdiv  -  x/30 
for  i  ■  1  to  30  do  begin 

if  i*l  ar  i*ll  or  i«21  then  print  4  spaces/  x/lOOO  using 

if  i*l3  then  print  "ROTE  <S  1M>'*; 

if  i-17  then  print  "PROC  <*10M>"; 

print  column  13. “ ! 

if  f0_tb  +  u0_tb  >=*  x  then  begin 

if  f0_tb  >=  x  then  print  fx;  else  print  ufxi  end 
els*  print  “ 

if  fO_dev  *  uO_dev  >»  x  then  begin 

if  fO_d*v  >-  x  then  print  fd;  else  print  ufd;  end 
else  print  “  "i 

if  fl _proc+ul_proc  >«  x*10  then  begin 

if  fl _proc  >=  x*10  then  print  fp;  els*  print  uf  p ;  end 
els*  print  “  " ; 

print  1  space; 

if  fl_tb  *  ul_tb  >«•  x  then  begin 

if  fl_tb  >»  x  then  print  fxj  els*  print  ufx;  end 
els*  print  ”  "i 

if  fl_d*v  +  ul_d*v  >«  i  then  begin 

if  fl_d*v  x  then  print  fdi  els*  print  ufd;  end 
else  print  M  “ ; 

if  f2 _proc+u2 _proc  >«  x*10  then  begin 

if  f2_proc  >•  x*10  then  print  fp;  else  print  ufp;  end 
els*  print  “ 
print  1  space. 

if  f2_tb  +  u2_tb  >■  x  then  begin 
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if  f2_tb  >»  i  than  print  fx;  ala*  print  ufx;  and 
tilt  print  “  " ; 

if  f2_d*v  +  u2_d*v  >■  x  than  bagin 

if  f2_d*v  >«  i  than  print  fd;  alia  print  ufd;  and 
tilt  print  ” 

if  f3_proc+u3_proc  >m  x*10  than  bagin 

if  f3 _proc  >»  x*10  than  print  fp;  alsa  print  ufp;  and 
alt*  print  "  " ; 

print  1  space; 

if  f3_tb  ♦  u3_tb  >»  x  than  bagin 

if  f3_tb  >»  <  than  print  ft;  alt*  print  ufx;  and 
alt*  print  "  “ ; 

if  f3_d*v  ♦  u3_d*v  x  than  bagin 

if  f3_d*v  <  than  print  fd;  alia  print  ufd;  and 
alte  print  "  "; 

if  f 4_proc«-u4_proc  x*10  than  bagin 

if  f4_proc  x*10  than  print  fp;  alt*  print  ufp;  and 
alt*  print  "  “; 

print  1  tpaca; 

if  f4_tb  +  u4_tb  *  than  bagin 

if  f4_tb  >■  *  than  print  fx;  alt*  print  ufx;  and 
else  print  "  “ ; 

if  f4_d*v  +  u4_d*v  >■  n  than  bagin 

if  f4_d*v  >»  >  than  print  fd;  alia  print  ufd;  and 
alte  print  "  " ; 

if  f 3_proc+u3 _proc  x*10  than  bagin 

if  f3_proc  >=  x*10  then  print  fp;  alt*  print  ufp;  and 
alt*  print  “  " ; 

print  1  tpaca; 

if  f3_tb  +  u3_tb  x  than  bagin 

if  f3_tb  x  than  print  fx;  alia  print  ufx;  and 
alt*  print  "  "; 

if  f3_dev  +  u3_dev  >=  x  then  bagin 

if  f5_dev  >»  x  then  print  fd;  elt*  print  ufd;  end 
elte  print  " 

if  f6_proc  +  u6 _proc  >=  x*10  then  bagin 

if  f6_proc  x*iO  then  print  fp;  alt*  print  ufp;  and 
alt*  print  "  " ; 

print  1  space; 

if  f6_tb  +  u6_tb  >•>  x  then  begin 

if  f6_tb  >»  x  than  print  fx;  alsa  print  ufx;  end 
els*  print  "  "; 

if  f6_dev  +  u6_d*v  x  then  bagin 

if  f6_d*v  >■  x  than  print  fd;  alt*  print  ufd;  and 
alt*  print  “  "; 

if  f7_proc  +  u7 _proc  x*10  than  bagin 

if  f 7_proc  >»  x*10  than  print  fp;  alt*  print  ufp;  end 
alt*  print  “  ”; 

print  1  space; 

if  f7_tb  +  u7_tb  >“  x  than  bagin 

if  f7_tb  >«  x  than  print  fx;  alia  print  ufx;  and 
alt*  print  “  "; 

if  f7_d*v  +  u7_d*v  >»  i  than  bagin 

if  f7_dev  >•  x  than  print  fd;  alt*  print  ufd;  end 
alt*  print  "  "; 

if  f8_proc  +  u8 _proc  x*10  then  bagin 
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if  f  8 _pr  oc  **10  than  print  f  p;  • 1 se  print  ufp;  and 

alia  print  “  " ; 

print  2  spaces; 

if  f9 _proc+u9_proc  >«  **10  than  bagin 

if  f 9 _proc  >«  **10  than  print  fp;  alia  print  ufp;  and 
alia  print  " 
print  2  spacas; 

if  f 10_proc+ul0_proc  >»  **10  than  bagin 

if  flO _proc  >»  **10  than  print  fp;  alsa  print  ufp;  end 
alse  print  "  "; 

print  2  spaces; 

if  f 1 l_pr oc+u 1 1 _pr oc  >«  **10  than  bagin 

if  fll_proc  >*  **10  then  print  fp;  alsa  print  ufp;  and 
alsa  print  " 
print  2  spacas; 

if  f 12_proc+ul2_proc  >»  **10  than  begin 

if  fl2_proc  >*  **10  then  print  fp;  else  print  ufp;  end 
else  print  "  "; 

print  2  spacas; 

if  f 13_proc+ul3_pr oc  >»  **10  than  bagin 

if  fl3_proe  >*  **10  then  print  fp;  alse  print  ufp;  end 
alse  print  "  "; 

print  2  spacas; 

if  f 14_pr oc+u 1 4_pr oc  >=  **10  than  bagin 

if  fl4_proc  >=  **10  then  print  fp;  else  print  ufp;  end 
alse  print  "  "; 

print  2  spaces; 

if  f 1 5 _prac+ul5_proc  **10  than  bagin 

if  flS_proc  >“  **10  than  print  fp;  else  print  ufp;  end 
alse  print  " 
print  2  spaces; 

if  fl6_proc+ul6 _proc  **10  than  bagin 

if  f 16_p roc  >*>  **10  then  print  fp;  els*  print  ufp;  end 
alsa  print  "  “; 

print  “ " 
let  *  »  *-*d iv 
and 

print  13  spacas; 

for  i  «  14  to  132  do  print  " - " ; 
print  " " 

print  16  spacas.  "  1986"  .  6  spac.  as.  "  1987" ,  6  spaces.  "1988“.  6  spaces. 

"1989", 6  spaces.  "1990".  6  spacas.  " 1991  ",  6  spac as,  “ 1992”, 6  spac as.  M 1993” 
"  !  94  95  96  97  98  99  00  01" 

print  column  94.“!" 

print  "Tach  Base  ",  fO_tb  using  f orml , f l_tb  using  forml, 

f2_tb  using  forml, f3_tb  using  forml, f4_tb  using  forml, 
f5_tb  using  forml,  f6_tb  using  forml,  f7_tb  using  forml, column  94,“!" 
print  "  (“,  f  *,"/",  uf  *."  >  ", -uO_tb  using  form2,-ul_tb  using  form2, 

-u2_tb  using  f orm2, -u3_tb  using  f orm2. -u4_tb  using  form2, 

-u5_tb  using  f or m2, -u6_tb  using  f orm2,  -u7_tb  using  form2, column  94. 

print  column  94."!" 

print  "Development  ",  fO_dav  using  forml,  fl_dev  using  forml, 

f2_dev  using  forml,  f3_dav  using  forml.  f4_d#v  using  forml, 

f5_d#v  using  forml,  f6_d#v  using  forml,  f7_d#v  using  forml, column  94, 

print  “  <  ", f d,  "/". ufd. "  )  ", -uO_d#v  using  f orm2» -ul_d#v  using  form2. 
-u2_dev  using  f orm2, -u3_d ev  using  f orm2.  -u4_dav  using  form2. 
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-u3_dev  using  form2,  -u6_d*v  using  form2. -u7_dev  using  form2. column  94. 
print  column  94. 

print  "Procurement  ",fl_proc  using  forml.  f2_proc  using  forml, 

#3 _proc  using  forml, f4_proc  using  forml,  f3_proc  using  forml. 
f6_proc  using  forml,  f7_proc  using  forml,  f8_proc  using  forml, 
column  94,“!  S**  Out  Y*ar  Procur*m*nt" 

print  H  ( ”, f p ,  uf p .  " )  ",-ul_proc  using  form2, -u2_proc  using  form2, 
-u3_proc  using  form2,  -u4 _proc  using  f orm2, -u3 _proc  using  form2, 

-u6 _proc  using  f or m2.  -u7 _proc  using  form2, -u8 _proc  using  form2, 

column  94, * ! * 
print  34  spaces; 
for  i»33  to  132  do  print 
print  " " 

print  36  spaces, "1994", 6  spaces, "1993", 6  spaces, “ 1996". 6  spaces. " 1997", 

6  spaces.  " 1998". 6  spac *s. “ 1999", 6  spaces, "2000", 6  spaces. "2001 “ 
skip  1  line 

print  29  spaces, "Procurement  (Out  Years)",  f9 _proc  using  forml, 

flO_proc  using  forml ,  f 1 l_proc  using  forml,  fl2_proc  using  forml, 

fl3_proc  using  forml,fl4 _proc  using  forml,  f 13 _proc  using  forml, 

fl6_proc  using  forml 

print  32  spaces, -u9_proc  using  f orm2,  -ulO_proc  using  form2, 

-ull_proc  using  form2, -ul2 _proc  using  f orm2. -ul3_proc  using  form2. 
-ul4_proc  using  f or m2, -u 1 3_pr oc  using  f orm2. -u 16_pr oc  using  form2 


end 
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<  6/25/86.  CQMttOO T T''/SVST£M/PD IP  report. 

made  for  Sob  Broun  of  the  Engineer  School  to  show  all  the  funding  data  in 
the  data  base  for  each  system  in  the  control  file.  > 

database  mamp  end 

define 

variable  cont  type  integer 

variable  cnt  type  integer 

variable  pno  type  integer 

paramCll  pletter  type  character  length  1 

paramC2]  code  type  integer 

paramC31  name  type  character  length  12 
end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  “ 
end 

output 

left  margin  0 
right  margin  132 
report  to  " c oms y s p d  i  p .  ou t “ 
end 

read  into  b 
sc l_ssn 

where  scl_name  =  name  and  scl_code  =  code 
end 

read  into  c 
b 

ssn_amc_ngr  s sn_a c q._c  od e  ssn_com_line  s sn_tr ad oc _ma  ssn_da_ma 
ac  <l_ty  P  e 

joining  b  scl_ssn  =  optional  ssn_ssn 

and  s  sn_ac  q_c  od  e  *  optional  ae<l_C0de 

end 

read  into  a 
c 

lrrdp_title  lrrdp_pdip 

lrrdp_procfl  lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf5 
lrrdp_pracf6  lrrdp_pracf7  lrrdp_procf8  lrrdp_procf9  1 rr d p_p r oc f 10 
lrrdp_procfll  lrrdp_procfl2  lrrdp_procfl3  lrrdp_procfl4  lrrdp_procfl5 
lrrdp_procfl6 

joining  c.scl_ssn  =  optional  lrrdp_ssn 
end 

sort  by  ssn_com_line  s sn_ac q_c o d e  scl_ssn  lrrdp_pdip  end 
format 

page  header 

print  column  47,  ••***#*  UNCLASSIFIED  ****•»" 
skip  2  lines 
print  column  44; 
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if  ssn_com_line  O  “  "  then  print  ssn_com_line  clipped; 

else  print  " _ 

print  "  COMMODITY/SYSTEM/PDIP  SUMMARY  FOR  ".name  clipped, 
i  cont  =  1  then  print  "  (continued)”  else  print  "" 
let  cont  =  0 
skip  2  lines 

page  trai ler 
skip  2  lines 

print  column  47, “*■»***  UNCLASSIFIED  ****♦" 

print  column  100, date, 2  spaces, time 

if  p l e t ter=” Z "  then  print  column  60, pno 

else  print  column  60,  p  letter,  pno  using  ’’###" 

let  pno  =»  pno  +  1 

before  group  of  ssn_com_line 
skip  to  top  of  page 

after  group  of  ssn_com_line 
let  cont  =  0 

before  group  of  scl_ssn 
let  cont  =  1 
let  cnt  =  0 
skip  1  line 

print  scl_ssn,2  spaces, lrrdp_title,l  space, 

ssn_da_ma>"  /  ",  ssn_tradoc_ma,  3  spaces,  ssn_emc_mgr 
print  8  spaces,"  PDIF  ",5  spaces, 

”  Fy87  f  y88  fy89  fy90  fg91  fy92  fy93  fy94", 

"  f  y  95  fy96  fy97  fy98  fy99  fyOO  fyOl" 

before  group  of  lrrdp_pdip 
let  cnt  *  cnt+1 

if  lrrdp_pdip  O  "  "  then  print  8  spac es,  Irr dp_p d i p  .  5  spaces; 
else  print  8  spaces,  “N/A  ”,5  spaces; 

print  lrrdp_procf2  using  "  ######",  lrrdp_procf3  using  "  ######", 

lrrdp_procf4  using  "  ######",  Irrdp_procf5  using  "  ######", 

lrrdp_procf6  using  "  ######",  lrrdp_procf7  using  "  ######", 

lrrdp_procf8  using  ”  HR#*##",  lrrdp_procf9  using  "  ######", 

1 r r d p_pr oc f 10  using  "  ##*###",  Ir r d p _p r oc f 1 1  using  "  ###### 

lrrdp_procf 12  using  "  ######",  1 r r d p _p r oc f 13  using  "  ###### 

lrrdp_procfl4  using  "  ######",  lrrdp_procfl5  using  "  ###### 

lrrdp_procf 16  using  "  ######" 

after  group  of  scl_ssn 

if  cnt  }  1  then  print  8  s p ac e s, "To ta 1 : " , 5  spaces, 


group 

tota  1 

of 

lrrdp_proc  f2 

using  " 

######" 

group 

total 

of 

1 rr dp  _p  roc  f 3 

using  " 

######" 

group 

tota  1 

of 

lrrdp_procf4 

using  " 

######" 

group 

total 

of 

1 rr dp _proc  f 5 

using  ” 

######" 

group 

tota  1 

of 

Irr dp_pr oc  f6 

using  " 

######" 

group 

tota  1 

of 

lrrdp  _procf7 

using  " 

######" 

group 

total 

of 

lrrdp  _procf8 

using  " 

######" 

group 

total 

of 

lrrdp__procf9 

using  *' 

######" 

group 

total 

of 

lrrdp_procflO 

i  using 

"  ###### 

group 

to  ta  1 

of 

lrrdp_proc  f 2 1 

us  ing 

#####4 
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group  total  of  lr  r  dp  _p  r  oc  f  12  using  "  ##*### 

group  total  of  lr rdp_p roc f 13  using  “  ###### 

group  total  of  lr r dp  _pr oc f 14  using  "  ###### 

group  total  of  1 rr dp _p r oc f 1 5  using  “  ###### 

group  total  of  lrrdp_procf  16  using  “  ###### 

before  group  of  s sn_ac n_c od e 
slip  1  line 

print  39  spaces."*****  ".acg_type  clipped.”  ***■ 

after  group  of  s  s  n  _a  c  q,_c  o  d  e 
skip  1  line 

end 
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{  DECISION  AID  FOR  SYSTEMS  BASED  ON  3DP  PRIORITIES. 

THIS  REPORT  SHOWS  THE  UNFUNDED  WORKPACKAGES  THAT  HAVE  A  RATING  OF 
1.2.  OR  3  AGAINST  EACH  SYSTEM. 

4/25/86  changed  to  mamp  data  base. 

3/12/86  added  base  case  systems  and  put  them  at  the  top  of  the  list. 
7/26/86  changed  wkpsys_wc  to  wkpsys_srf  in  keeping  with  iitri's  usage, 
changed  base  year  to  1986.  > 

database  .ramp  end 

define 

variable  pno  type  integer 

variable  pgend  type  integer 

variable  cnt  type  integer 

variable  totuf  type  long 

paramCll  pletter  type  character  length  1 

paramC21  code  type  integer 

paramC31  name  type  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "decsysbdp  out" 
end 

read  into  b 
sc l_ssn 

where  scl_code  =  code  and  scl_name  =  name 
end 

read  into  c 
b 

ssn_amc_mgr  ssn_da_ma  s sn _t r ad oc _ma 
be  =0 

where  ssn_acg_code  >  2  or  s s n_ac q_c od e  =  0 
joining  b  scl_ssn  =  optional  ssn_ssn 
end 

read  into  d 
b 

ssn_amc_mgr  ssn_da_ma  s sn_tr adoc _ma 
b  c  =  1 

where  s s n_ac g_c od e  =  1 
joining  b  sc l_;sn  =  optional  ssn_ssn 
end 

assign  e  =  c  union  d  end 

read  into  a 
e 
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lupn_titie 

priori _s core  priori _n  d  e  f 

joining  e  sci__ssn  =  optional  hipri_ssn 

and  ».  sd_5sn  =  optional  priori _ssn_no 

end 

read  into  c 
b 

wkpsys_srr  wk  p  k  g  k  p  s y  s _i  d  x  u/kpkg_title 
u)  k  p  f  _y  r  ukpf_unfund 

inhere  wkpf_unfund  >  0  and  wkpsys_srf  >  0  and  uikpsys_srf  C  4 
joining  b.  scl_ssn  =  wkpsys_ssn 

and  uk  p  s  y  s_>i/kp  k  g_i  d  x  *  wkp  k  g _tuk  p  s y  s_i  d  x 
and  ink  p  k  g  _n o _i  d  x  =  mk  p  f  _u/k  p  k  g  _i  d  x 

end 

read  into  d 

a 

c  .  ink  p  a  y  s_sr  f  c .  wk  p  kg_wk  p  sy  s_i  d  x  c  .  ink  p  k  g  _t  i  1 1  e  c.irkpf_yr  c  .  w  k  p  f  _un  f  un  d 
joining  a. scl_i3n  =  optional  c  scl_ssn 
end 

sort  by  be  descending  priorl_score  descending  priori _ndef  descending 
scl_ssn  u'<psys_srf  wkpkg_no  w  k  p  f  _y  r  end 


format 


page  header 
print  col umn 
skip  2  1 ines 
print  col umn 
print  co 1 umn 
skip  3  lines 
print  column 
print  "  - 


47.  "***■*■»*  UNCLASSIFIED  **«***'' 

44, name  clipped."  1  TO  N  DEVELOPMENT  SYSTEMS  BDP  RANKINGS" 
44, "WITH  SIGNIFICANT  UNFUNDED  WORKP ACKAGES  SHOWN" 

86.  "UNFUNDED  DEVE1  OPMENT  SCHEDULE" 


print  "  SSN".S  sp  a  c  e  s  .  "  T I  TLE  f  UNFUNDED  WORKP  ACKAGES  "  , 

column  57,  "DA/TDC  MA",  column  67, 


*' 

FY86 

FY87 

FY88  FY89 

FY90 

FY91 

FY92 

FY93  I 

print  " 

print  " 

' .  c  o  I umn 

6  7,  " ; " 

col  umn  1 32 f  "  1  " 

-  - 

let  pgend  =  0 


page  trailer 

if  pgend  =  0  then  begin 

print  column  67,  " : " ,  c o  I  umn  132. 

print  - - - - - 


end 

else  skip  2  lines 
skip  2  lines 

print  column  47,  "•****■»■*  UNCLASSIFIED  *■***■»*” 

print  column  100. date, 2  spaces.time 

if  pletter  *  "2"  then  print  column  60, pno 

else  print  column  60.  p  1  e 1 1 e r ,  .  p no  using  ”###" 
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let  pno  =  pno+1 

on  last  record 
let  pgend  =  1 

print  “I",  column  67,  “ ! “ ,  c 0  1  umn  132,  "i 
print  " - - - 


before  group  of  scl_ssn 
let  cnt  =  cnt+1 

print  "I  ", cnt  using  "###.  ",sci_ssn,2  spac es,  h i pr i _t i t le C 1 , 403 . 

1  spac e,  s sn_da_ma,  "  /  ",  s sn_trad oc_ma, 
column  67,  “  ;  ,  c o  1  umn  132,"!'* 

before  group  of  tukpkg _n o 

if  uik  p  f  _y  r>  1985  then  begin 

print  "!  ",8  spaces,  uikpkg_cmd  clipped,  1  space,  wkpkg_pe.  1  space, 

:jjkpkg_proj.l  space,  tukpkg_t ask  clipped,  1  space,  u)kpkg_no  clipped, 
column  48,  "crit:  “ ,  u/k p sy s_s r f  using  column  67,  "!"; 

end 

before  group  of  ukpf_yr 

if  iukpf_grM985  then  begin 

if  'x-k  p  f  _unf  und>0  then  print  column  (  8*  (u;k  p  f  _y  r- 1986  )  +68  > , 

-iukpf_unfund  using  "(<((<(#)“; 

end 

after  group  of  u/kpkg_no 

if  iukpf_grM985  then  begin 
print  column  132, “ ! " 

print  "!  ",11  spac  es ,  u.'kp  kg_t  i  tl  e  C  1 ,  523  ,  c  o  1  umn  67,  "  1  " ,  c  o  1  umn  132,"!" 
end 


end 
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<  DECISION  AID  FOR  WORKPACKAGES  BASED  ON  BDP  PRIORITIES. 
THIS  REPORT  SHOWS  THE  UNFUNDED  WORKPACKAGES. 

4/25/86  changed  to  mamp  data  base. 

5/12/86  limited  to  6  3.  6.4,  and  6.7  won k p ac ka g e s. 

7/25/86  changed  to  1986  as  base  gear.  > 

database  manp  end 

define 


var iab  1  e 

pno 

type 

integer 

var iab le 

p  g  end 

type 

integer 

var iab  le 

cnt 

type 

integer 

var iab 1 e 

totuf 

type 

long 

paramC 1 1 

p  letter 

type 

character 

length  1 

paramC2J 

code 

type 

integer 

paramC31 

end 

name 

type 

character 

length  12 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  marg in  0 
right  margin  132 
report  to  "decmpbdp . out" 
end 

read  into  b 
p  c l_i d  x 

inhere  pcl_code  =  code  and  pcl_name  »  name 

and  <pcl_subcat  -  "6. 3A"  or  pcl_subcat  =  "6. 3B"  or  pcl_subcat 
or  pcl_subcat  =  "6.7") 

end 

read  into  c 

prior2_score  prior2_nsys 

ukp  kg_no_id  x  <nkpkg_pe  uikpkg_proj  ukpkg_task  inkpkg_title 
joining  b.pcl_idx  =  uikp  kg_pr  o  j_id  x 

and  uikp  k  g_no_i  d  x  =  optional  pr  i  or2_u/k  p  kg_i  d  x 

end 

read  into  d 

ink  p  f  _uik  p  k  g  _i  d  x  uikpf_yr  inkpf_unfund 
inhere  inkpf_unfund  >  0 

joining  c.  uikp  kg_no_id  x  =  ink  p  f  _ink  p  k  g_i  d  x 
end 

read  into  a 
c 

d.uikpf_gr  d .  ink  p  f  _unf  und 

joining  c .  ink  p  k  g_no_i  d  x  *  optional  d .  ink  p  f  _inkp  k  g_i  d  x 
end 

sort  by  prior2_score  descending  prior2_n*ys  descending 
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u»kpVg_oe  vu  k  p  kg_p  ro  j  <*/kpkg_task  iukpkg_no  tukpf_yr  end 


format 


page  header 

print  column  47,  "******  UNCLASSIFIED  ******" 
skip  2  1 ines 

print  column  48, name  clipped, *  1  TO  N  WORKRACKAGE  SOP  RANKINGS" 
print  column  54, "WITH  UNFUNDED  AMOUNTS  SHOWN" 
skip  3  lines 

print  column  86, “UNFUNDED  DEVELOPMENT  SCHEDULE" 

print  '*  - - 


print 

print 


PE/PROU/TASK/WKPKG",  5  spaces, "TITLE", column  67, 

FY86  FY87  FY88  FY89  FY90  FY91  FY92  FY93  ! 


pr  int 
let  p g end 


column  67, 


column  132, 


page  trailer 

if  pgend  =  0  then  begin 

print  "'".column  67,  " ! ", co  lumn  132.  "I" 

print  '• - - 


end 

else  skip  2  1 ines 
skip  2  lines 

print  column  47, "******  UNCLASSIFIED  ****** 

print  column  100. date. 2  spaces, time 

if  platter  =  "Z"  then  print  column  60. pno 

else  print  column  60. p 1 e t ter , , p no  using  "###" 

let  pno  »  p no* 1 


on  last  record 
let  pgend  *  1 

print  "I", column  67, " I " , c o 1 umn  132."! 
print  "  - - - 


before  group  of  uikpkg_no 
let  cnt  *  cnt  +  l 

print  "!  ",  cnt  using  "###.  ",  wkp kg_t i 1 1 e [ 1 , 551,  co 1 umn  67."!"; 

before  group  of  wkpf_igr 

if  ujkpf_gr>1985  then  begin 

if  ukp f  _unf und>0  then  print  column  <8* (mkp f _yr-1986 >*68 ) . 

-uikpf_unf und  using  "((((<(#>“« 

end 

after  group  of  wkpkg_no 
print  column  132,"!" 

print  " !  ",  5  sp ac es .  wk p k g _cmd . I  space. 

ukpkg_pt.l  space,  takpkg_proj.  1  space.  wkpkg_task  clipped,  1  space, 
wk p kg _no,  c o 1 umn  67,  " ! ", co  lumn  132,"!" 
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<  Deficiency  index  for  the  rollup  report  only  > 
database  ira.r.p  and 

<  last  modified  2/7/86  to  add  mission  area  to  control  file. 

3/6/86  to  add  page  letter  and  page  number 

S/12/S6  changed  to  the  mamp  data  base. 

6/13/86  changed  to  always  print  out  primary  (since  type  is  screwed  up). 
7/24/86  merged  with  defindexl  by  adding  profile  column  parameter.  > 

define 

paramCU  pletter  type  character  length  1 
paramCZD  code  type  integer 

paramC31  name  type  character  length  12 

paramC41  pro  type  character  length  1 

variable  pno  type  integer 

end 

input 

prompt  for  pno  using  “Please  enter  the  starting  page  number  >  “ 
end 

output 

left  margin  0 
right  marg in  132 
report  to  "defindex.out" 
end 

read  into  a 
def c  1 1 

where  dcl_code  =  code  and  dcl_name  “  name 
end 

sort  by  dcl_def  end 
format 

before  group  of  dcl_def 

if  pro  =  "Y"  then  print  18  spaces*  else  print  28  spaces* 
print  dcl_def.70  spaces." - 

if  pro  =  "Y"  then  print  12  spaces." - "  else  print 

page  header 

print  column  47.  "**■*■***  UNCLASSIFIED  ****■»*" 
skip  3  1 ines 

print  column  47. name  clipped."  DEFICIENCY  INDEX  IN  NUMERICAL  ORDER" 
skip  3  lines 

if  pro  ■  "Y"  then  print  18  spaces;  else  print  28  spaces, 
print  "DEFICIENCY", 16  spaces. "TITLE", 41  spac es. "SUMMARY  PAGE"; 
if  pro  »  "Y"  then  print  4  s pac e s, "FUNDING  PROFILE"  else  print  "" 
skip  2  lines 

page  trailer 
skip  2  1 ines 

print  column  47,  "******  UNCLASSIFIED  *■»***#" 
print  column  100, date, 2  spaces. time 
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if  p letter»"Z"  then  print  60  apace*. pno 

#l*e  print  60  tpacts.  p  letter,  pno  using  ''### 

let  pno  =  pno+1 

end 
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<  Deficiency  Profile  Report  Generator  part  1  > 

<  last  changed  2/7/86.  added  mission  area  parameter, 
modified  S/28/86,  changed  to  mamp  database. 

7/24/86.  changed  to  generic  years. 

7/2S/86.  changed  to  generic  funding  rollup  file.  > 
database  maop  end 
define 


paramC  1 1 

code 

type 

integer 

paramC21 

name 

type 

character 

length  12 

var iab  1  e 

V 

type 

character 

length  1 

variab le 

f  0_tb 

type 

long 

var iab le 

u0_tb 

type 

long 

var iab le 

f 0_de v 

type 

long 

var  iab  1  e 

uO_dev 

type 

long 

var iab  1  e 

f  l_tb 

type 

long 

variable 

ul_tb 

type 

long 

variab  le 

f lldev 

type 

long 

variab  le 

ul_dev 

type 

long 

var  iab  le 

f  2_tb 

type 

long 

variab  1  e 

u2_tb 

type 

long 

var  iab  le 

f 2_d  ev 

type 

long 

variab  1  e 

u2_dev 

type 

long 

var  iab  le 

f  3_tb 

type 

long 

var  iab  1  e 

u3_tb 

type 

long 

var  iab  1  e 

f 3_dev 

type 

long 

variable 

u3_dev 

type 

long 

var  iab  le 

f  4_tb 

type 

long 

var  iab  le 

u4_tb 

type 

long 

var  iab  le 

f 4_dev 

type 

long 

var  iable 

u4_dev 

type 

long 

var iab  le 

f  3_tb 

type 

long 

variable 

uS_tb 

type 

long 

variable 

fS_dev 

type 

long 

variab  le 

u3_dev 

type 

long 

variab  le 

f  6_tb 

type 

long 

var iab le 

u6_tb 

type 

long 

variable 

f6_dev 

type 

long 

variable 

u6_d  ev 

type 

1  ong 

variab  1  e 

f  7_tb 

type 

long 

var lab  le 

u7_tb 

type 

1  ong 

var  lab  1  e 

f  7_d  e  v 

type 

long 

var lab le 

u7_dev 

type 

long 

end 

output 

top  margin  0 
bottom  margin  O 
left  margin  0 
page  length  32000 
report  to  “dtfprol.  out" 
end 

read  into  a 
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d*f ctl 

wh*r«  dcl_cod*  «  cod*  and  dcl_na«*  ■  nan* 
and 


r*ad  into  b 

a 

o*nd*f _*sn 

joining  a.  dcl_d*f  »  s*nd*f_d*f 
end 

r*ad  into  c 
b 

wkpkg_cmd  ukpkg_cat  ukpkg_subcat  iukpkg_no 

wkpfr_fO  u;kpfr_fl  i«kpfr_f2  wkpfr_f3  mkpfr_f4  wkpfr_f3  Wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  uikpfr_u2  u»kpfr_u3  u/kpfr_u4  uikpfr_u3  wkpfr_u&  wkpfr_u7 
joining  b .  s*nd«f_ssn  »  u/kpsys_**n 

and  wkpsy  s_u»kp  kg_i  d  x  «  ukp kg_iukp*y*_id x 
and  wkpkg_no_idx  ■  ukp f r_wkp kg_id x 

•  nd 

sort  by  dcl_d*f  uikpkg_cmd  t*kpkg_cat  u»kpkg_no  *nd 
format 


b«for*  group  of  dcl_def 
let  f 0_tb  -  O 
l«t  uO_tb  “  O 
l*t  fO_dev  »  0 
l*t  uO_d*v  »  O 
l*t  fl_tb  -  O 
l*t  ul_tb  *  0 
l«t  fl_d*v  *  0 
i*t  ui_dev  *  0 
l«t  f 2_tb  »  O 
i*t  u2_tb  -  O 
l*t  f2_dev  *  0 
l*t  u2_d*v  »  0 
l*t  f3_tb  -  0 
lot  u3_tb  »  0 
l*t  f 3_d«v  -  0 
lot  u3_d*v  »  O 
l*t  f4>  »  0 
l*t  u4_tb  -  0 
l*t  f4_d*v  “  0 
l*t  u4_d«v  *  0 
l*t  f 3_tb  -  0 
l*t  u3_tb  *  0 
l*t  f 3_d*v  -  0 
l*t  u3_d*v  m  0 
lot  f6_tb  -  0 
l*t  u6_tb  »  0 
l*t  f6_d«v  »  0 
l*t  u6_d*v  *  0 
l*t  f 7_tb  -  0 
lot  u7  tb  ■  0 
l*t  f 7~ d*v  -  0 
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let  u7_dev  »  0 

before  group  of  u/kpkg_no 
if  u/kp kg_sub ca t»"6.  I " 
let  fO_tb  =  fO_tb  + 

let  f  1  _tb  »  f  1  _tb  + 

let  f 2_tb  =  f 2_tb  + 

let  f 3_tb  =*  f3_tb  + 

let  f 4_tb  =  f 4_tb  + 

let  f 3_tb  =  f 5_tb  + 

let  f6_tb  »  f6_tb  + 

let  f  7_tb  =  f 7_tb  + 

let  uO_tb  =  uO_tb  + 

let  ul_tb  =  ul_tb  + 

let  u2_tb  ■  u2_tb  + 

let  u3_tb  “  u3_tb  + 

let  u 4_tb  *  u4_tb  +■ 

let  u3_tb  **  u5_tb  + 

let  u6_tb  =  u6_tb  + 

let  u7_tb  =  u7_tb  + 

end 

els*  if  ‘j/kpkg_subcat  =  '‘ 
let  fO_dev  =  fO_dev 
let  fl_dev  =  fl_dev 
let  f2_dev  *  f2_dev 
let  f3_d*v  =•  f  3  _d  e  v 
let  f4_dev  *=  f4_dev 
let  f3_dev  =  f3_dev 
let  f 6_d * v  »  f6_dev 
let  f 7_dev  -  f 7~dev 
let  uO_d*v  »  uO_d*v 
let  ul_d*v  »  ul_d*v 
let  u2_dev  ■  u2_dev 
let  u3_dev  *  u3_dev 
let  u4_dev  *  u4_dev 
let  u3_dev  ■  u3_dev 
let  u6_dev  »  u6_dev 
let  u7_dev  »  u7_d*v 
end 

after  group  of  dcl_def 
let  v»“ i “ 

print  dcl_d*f  i  Vi  "r  Vi 
print  fO_tb.  v# f l_tb.  v. 
print  uO_tb .  v.  ul_tb .  v. 
print  fO_d*v> v.  f l_d*v. 
print  uO_dev> v.  ul_d*v> 

end 


or  u/kp  kg_sub  ca  t“”6.  2“  or  u/kp  kg_subcat»“&.  3A"  then  begin 

wkpf r_fO 

u/kpf  r_fl 

u/kpfr_f2 

wkpfr_f3 

u/kpf  r_f  4 

u/kpf  r_f  3 

uikpfr_f6 

ukp  f r_f 7 

u/kp  f r _uO 

u/kpf  r_ul 

uzkpfr_u2 

u/kpfr_u3 

u/kpfr_u4 

u/kpfr_u3 

u/kp  f  r  _u6 

u/kp  f  r_u7 

6.  38"  or  u/kpkg_subcat="6.  4"  or  u/kp  kg_subcat  =  "6.  7"  then  begin 
+  uzkpfr_fO 
+  u/kpfr_fl 
+  u/kpfr_f2 
+  u/kpfr_f3 

♦  u/kpfr_f4 
+  u/kpfr_f3 
+  u/kpfr_f6 
+  u/kpfr_f7 
+  uikpfr_uO 
+  u/kpfr_ul 
+  u/kpfr_u2 
+  u/kpfr_u3 

♦  u/kpfr_u4 
+  u/kpfr_u3 

♦  u/kpfr_u6 
+  uzkpfr_u7 


“  ” i  VI 

f  2_tb  i  v.  f  3_tb.  v.  f  4_tb.  v,  f  3_tb .  v<  f  6_tb  .  v.  f  7_tb  <  vi 
u2_tb<  v,  u3_tb>  v,  u4_tb.  v.  u3„tb.  v,  u6_tb>  v.  u7_tb#  v; 
v,  f2_d*v.  v.  f3_d*v>  v.  f4_d*v.  v.  f3_d*v.  v,  f6_d*v(  v.  f7_d*v>  v; 
v.  u2  d*v>  Vi  u3_d*Vi  vi  u4  d iv>  v,  u3_d*v(  v,  u6_d*Vi  v,  u7_d evi  v 


D-50 


Ju 1  25  12  17  1Q86  defpro2  Page  1 


{  Deficiency  Profile  Report  Generator  > 

<  last  modified  2  7  86  to  add  page  letter  parameter,  mission  area  and 
date  time  s  tamp 

5/28/86-  changed  to  mamp  database. 

7/24/86.  changed  to  generic  years,  made  unclass. 

7/25/86  changed  to  generic  rdte  rollup  file.  > 

database  ra<-p  end 

define 


parent  1  1 

p letter 

type 

charac  ter 

Ieng  th 

1 

paramC21 

code 

type 

integer 

pa  ramC  3 1 

name 

type 

character 

length 

12 

variable 

p  no 

type 

integer 

var  l ab  1  e 

counter 

type 

integer 

var i ab  1  e 

tf 

type 

float 

var  i ab  1  e 

i 

type 

integer 

var  iab  I  e 

X 

type 

long 

var  iab  1  e 

x  d  i  v 

type 

long 

variable 

form  1 

type 

charac ter 

length 

10 

var  i  ab  1  e 

f  or  m2 

type 

charac ter 

1  eng  th 

10 

var i ab  1  e 

uf  x 

type 

character 

length 

-3 

variable 

u  f  d 

type 

character 

length 

var i ab  1  e 

uf  p 

type 

character 

1  eng  th 

-3 

var  iab  le 

f  X 

type 

charac  ter 

length 

var  iab  I  e 

f  d 

type 

character 

length 

~3 

var  i  ab  1  e 

fp 

type 

character 

length 

3 

var i ab  1  e 

f l_pr oc 

type 

long 

var i ab  1  e 

f 2_proc 

type 

long 

var  table 

f 3_b  roc 

type 

long 

var  i  ab  1  e 

f  4  _p  r  o  c 

type 

long 

var iab  1  e 

f 5_proc 

type 

long 

var  iab  1  e 

f 6_p  roc 

type 

long 

var  i  ab  1  e 

f 7_proc 

type 

long 

var i ab  I  e 

f 8_p roc 

type 

long 

var i ab  1  e 

f9_p  roc 

type 

1  ong 

var  i  ab  1  e 

f  1 0  _p  r  o  c 

type 

long 

var  iab  1  e 

f  1 1  _p  r  o  c 

type 

long 

var  i  ab  1  e 

f 12_proc 

type 

long 

variable 

f 13_p  roc 

type 

long 

var iab  le 

f 14_proc 

type 

long 

variable 

f 1 5_p  roc 

type 

long 

var  iab  1  e 

f  1 6  _p  r  o  c 

type 

long 

var i ab  1  e 

v  1  _p  r  o  c 

type 

long 

var  iab  le 

u2_pr oc 

type 

long 

var iab  le 

u3_proc 

type 

long 

var iab  1  e 

u4  _proc 

type 

long 

var  iab  1  e 

u5_proc 

type 

long 

var i ab  1  e 

u  6  _p  r  o  c 

type 

long 

var iab  l  e 

u7_proc 

type 

long 

var  iab  1  e 

u8_proc 

type 

long 

var iab  1  e 

u9_proc 

type 

long 

var iab  1  e 

u  10_pr  oc 

type 

long 

var iab  le 

y  X  l  _p  r  o  c 

type 

1  ong 
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variable  ul2_proc  type  long 

variable  ul3_proc  type  long 

variable  ul4_proc  type  long 

variable  ul5_proc  type  long 

variable  u!6_proc  type  long 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  ;■  " 
end 

output 

left  margin  0 
right  ma rg  in  1 32 
report  to  "defpro2  out" 
end 

read  into  c 
d  c  I  _d  e  f 

where  dcl_code  =  code  and  dcl_name  =  name 
end 

read  into  a 
c 

f undpro 

joining  c.dcl_def  =  optional  fp_deftc 
end 

read  into  b 
a 

ssn_ssn  s s n_t r a d oc _ma  ssn_tradoc_pro  ssn_da_ma 
joining  a  dcl_def  *  optional  ssndef_def 
and  ssndef_ssn  =  optional  ssn_ssn 

end 

read  into  c 
b 

1  rr  d  p  _p  d  i  p 

lrrdp_proctl  lrrdp_procf2  lrrdp_procf3  I'rdp_procf4  lrrdp_procf5  lrrdp_procf6 
lrrdp_procf7  lrrdp_procfB  lrrdp_procf9  lrrdp_procflQ  lrrdp_procfll 
lrrdp_procP12  lrrdp_procfl3  irrdp_procfl4  lrrdp_procfl5  lrrdp_procfl6 
lrrdppri_pri 

joining  b  ssn_ssn  =  optional  lrrdp_ssn 

and  lrrdp_pdip  *  optional  lrrdppri_pdip 

end 

sort  by  dcl_def  ssn_ssn  lrrdp_pdip  end 

format 

page  header 

print  column  47.  '•***«**  UNCLPSS  IFIED  **■**•**" 
skip  2  lines 

page  tra  1 1 ir 
skip  1  line 
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print  column  47,  "*•*■»***  UNCLASSIFIED  ******" 

print  column  1 00, date, 2  apace*, time 

if  p  1  e 1 1 er  =  " Z"  then  print  column  60, pno 

else  print  column  60.  p  1  e 1 1 er .  “  — pno  using  "###” 

let  pno  =  pno+1 

before  group  of  dcl_def 
skip  to  top  of  page 

print  40  spaces.  "FISCAL  SUGARY  -  DEFICIENCY  “,dcl_def  using 

skip  1  line 

let  f 1 _proc  =  0 

let  f2_proc  =  0 

let  f3_prac  =  0 

let  f 4_proc  =  0 

let  fS_prac  =  0 

let  f6_proc  =  0 

let  f7_proc  =  0 

let  Y3_prac  «  0 

let  f9_proc  *  0 

let  flO_proc  =  0 

let  fll_proc  =  O 

let  fl2_proc  -  C 

let  fl3_proc  -  0 

let  fl4_proc  =  0 

let  f 1 5  _p  r  o  c  =  0 

let  fl6_proc  =  0 

let  ul_proc  =  0 

let  u2_proc  =  0 

let  u3 _ p  r  p  c  =  0 

let  u4_prac  =  0 
1  e  t  u5_p  roc  “0 
let  u6_proc  =  0 
let  u7_prcc  =  0 
let  u8_proc  =  0 
let  u9  _proc  =  0 
let  ulO_proc  =  C 
let  u 1 1 _p  r o c  =  0 
let  ul2_proc  =  0 
let  ul3_proc  =  0 
let  ul4_grac  =  0 
let  u 1 5_p  roc  *  0 
let  ul6_proc  =  0 


before  group  of 
if  lrrdppri_pr 
let  ul_prac 
let  u2_proc 
let  u3_p  roc 
let  u4 jroc 
let  u5_proc 
let  u6_proc 
let  u7_proc 
let  u8_proc 
let  u9_proc 
let  ulO _proc 
let  ull_proc 


lrrdp_pdip 

i  1.0  or  Irrdppri _pri  >  800.0  then  begin 
=  ul_proc+lrrdp_procfl 
»  u2_p roc *1 r r d p_p r oc f 2 
=  u3_proc+lrrdp_procf3 
m  u4_proc+lrrdp_procf4 
=  u5_p roc+1 rrd p _pr oc f 5 
=  u6_proc+lrrdp_proc f6 


»  u8_proc+lrrdp_procf8 
«  u9_proc+lrrdp_procf9 
«  ulO_proc  +  lrrdp_p roc f  10 
=  ull_proc»lrrdp_procflI 
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let  u 12_p  r  oc 
let  u  1 3  _p  r  o  c 
let  u  1 4  _p  r  o  c 
let  ul5_proc 
let  u 1 6_p  roc 
end 

else  begin 
let  f  1  jroc 
let  f2_proc 
let  f  3  _p  r  o  c 
let  f4_proc 
let  f 5_p  roc 
let  f 6_proc 
let  f7_proc 
let  fS_proc 
let  f 9~_p roc 
let  f  1 0_p  roc 
let  f 1 1 _proc 
let  f  1 2  _p  r  o  c 
let  fl3_prcc 
let  f  1 4  _p  r  o  c 
let  f  1  5  _p  r  o  c 
let  f 16_p  roc 
end 


after 

group  of  del. 

_d? 

f 

let 

fora  1  =  " 

let 

f ora2  =  “ter 

(  (  ( 

let 

ufx  =  "X — " 

let 

ufd  =  ''D — " 

let 

ufp  =  "P  — " 

let 

fx  =  "XXX" 

let 

fd  =  "ODD" 

let 

fp  =  "PPP" 

let 

tf  =  0 

if 

fO_tb+uO_tb  :• 

tf 

then  let 

tf  = 

fO_tb+uO_tb 

if 

fl_tb+ul_tb  > 

tf 

then  let 

tf  = 

f l_tb+ul_tb 

i  f 

f 2_tb  *u2_tb  :■ 

tf 

then  let 

tf  = 

f 2_tb+u2_tb 

i  f 

f3_tb+u3_tb  ;■ 

t  f 

then  let 

tf  = 

f 3_tb+u3_tb 

x  f 

f4_tb  +  u4~tb  .*> 

t  f 

then  let 

tf  = 

f 4_tb+u4_tb 

i  f 

f 3~tb+u5_tb  :• 

t  f 

then  let 

tf  = 

f 5_tb+u3_tb 

i  f 

f 6_tb  +u6_tb 

tf 

then  let 

tf  = 

f 6~tb+u6_tb 

i  f 

f  7_t  b  -ru  7_t  b  :• 

tf 

then  let 

tf  = 

f 7_tb+u7^tb 

i  f 

fO_dev+uO_dev 

y 

tf  then  let  tf 

*  f  0_d  e  v-ruO_d  ev 

i  f 

f  1  _d  e  v  *  u  l  _d  e  v 

y 

tf  then  let  tf 

=  f  1  _d e v+u l  _d  e v 

i  f 

f 2_d  e v+u2_d e  v 

y 

tf  then  let  tf 

=  f 2_d e v+u2_d ev 

If 

f  3_d  es-+u3_d  e  v 

> 

tf  then  let  tf 

«  f 3_d ev+u3_d e v 

i  f 

f 4_de  v+u4_d  e v 

y 

tf  then  let  tf 

«  f 4_d e v+u4_d ev 

if 

f 3_d  e v+u3_d ev 

y 

tf  then  let  tf 

*  f 5_d e v+u5_d e v 

if 

f 6_d  e v+u6_d  e  v 

s 

tf  then  let  tf 

*=  f  6_d  evfu6_dev 

if 

f 7_d  e v+u7  dev 

y 

tf  then  let  tf 

»  f 7_d ev+u7_d ev 

i  f 

(fl_proc+ul_proc)/10  >  tf 

then 

let  tf  =  (fl_proc*ul_proc>/10 

i  f 

(f2_proc*u2 _proc)/10  '•  tf 

then 

let  tf  »  ( f 2_p roc +u2_p r oc ) / 10 

if 

( f3_proc+u3_pr oc 

>/10  ;■  tf 

then 

let  tf  ”  (f3_proc+u3_proc > /10 

if 

( f 4_ p roc+u4_proc 

)/10  1>  tf 

then 

let  tf  *»  ( f 4_pr oc *u4_pr oc ) / 10 

=  u  1 2  _proc*lrrdp_pracfl2 
=  ul3_proc+lrrdp_procfl3 
=  u 14_p r oc+ lrrd p _p roc f 14 
=  'Jl5_proc  +  lrrdp_procfl5 
=  ul6_Broc+lrrdp_procf 16 


=  fl_proc-*-lrrdp_procfl 
=  f 2_p r oc + 1 rr d p _p r oc f 2 
=  f 3_p r oc + 1 rr d p _p r oc f3 
=  f4_proc+lrrdp_procf4 
=  f5_proc+lrrdp_procf5 
=  f6_prcc+lrrdp_procf6 
=  f  7_p  r  oc  +  1  r  r  d  p  _p  r  o  c  f  7 
=  f8_proc+lrrdp_p  rocfB 
=  f9_proc+lrrdp_procf9 
=  f  1 0_p  r  oc  +  1  r  r  d  p  _p r  oc  f  10 
=  fll_proc+lrrdp_procfll 
=  f 12_p r oc+ lrrd p _p r oc f 12 
=  fl3_proc+lrrdp_procfl3 
=  fl4_prac+lrrdp_procfl4 
=  fl5_proc+lrrdp_procfl5 
=  fl6_proc-*-lrrdp_procfl6 
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if  (  f  5_proc-**u5_proc  ) /10  Zm  tf  then  let  t  f  =  (  f  5_p  r  o  c  +  u  5_p  r  o  c  )  /  1 0 

if  C  f  6_p  r oc +u6_p  r  oc  .' /  1 0  Zs  tf  then  let  tf  =  (  f6_proc+u6_proc  )  /10 

if  ( f 7_proc +u7_proc > / 10  Z*  tf  then  let  tf  =  ( f 7_p r o c ♦u 7_p r o c ) / 1 0 

if  ( f8_proc+u8_proc ) /10  >  tf  then  let  tf  =  ( f 8_p r o c +  uQ__p rc c ) / 1 0 

if  (f9_proc+u9_proc>/10  Z>  tf  then  let  tf  *  ( f9_proc  +  u9_proc  )  /10 

if  C  f  10_p  r  oc +u  lO_p  r  oc  >  /10  >  tf  then  let  tf  =  (  f  10__p  r  o  c  +  u  1 0_p  r  o  c  )  / 1 0 
if  (fll_proc+ull_proc)/lO  Z*  tf  then  let  tf  =  <fll_proc+ull_proc)/lG 
if  (  f  1 2_p  r  oc  ■**u  12__o  r  o  c  >  /  10  >  tf  then  let  tf  =  C  f  1 2_p  r  o  c  +u  1 2_p  r  o  c  )  /  1  0 

if  (  f  1 3_p  r  oc  +u  l3_p  r  oc  )  /  10  >  tf  then  let  tf  *  <  f  1 3_p  r  o c -*-u  I3_p  r  o c  )  /  1 Q 

if  (  f  1  4_j>  roc  +u  1  r  oc  )  / 10  >  tf  then  let  tf  -  (  f  I4_p  r  oc  -‘-u  14_p  r  oc  )  /  10 

if  <  f  1  5_p  r  oc  +  u  1  3_p  r  o  c  )  / 10  ?-  tf  then  let  tf  =  (  f  1  5_p  r  o  c  +  u  1  5_p  r  o  c  )  /  1 0 

if  <  f  16_oroc  +  u  16_j> r oc  )  / 10  >  tf  then  let  tf  ~  (  f  1  o_p r o c >u  1 6_p r o c  )  / 1 0 

let  tf  =  tf*C  8 
skip  3  lines 


let 

x  = 

150000 

i  f 

t  f>x 

then 

let 

<  =  300000 

i  f 

tf  >x 

then 

let 

.  =  750000 

i  f 

tf  >x 

then 

let 

«  =  1500000 

let  xdiv  =s  x  /  30 

for  i  =  l  to  30  do  begin 

if  i=l  or  i=ll  or  i=2l  then  print  4  spaces,  x/1000  using  "####*# 
if  i=15  then  print  "ROTE  ($  Iff)"; 
if  i=17  then  print  “PROC  (*10M>"; 
print  co 1 umn  13. " ! " ; 

if  f  Q_tb  +  uO_tb  >=  x  then  begin 

if  fO^tb  >=  x  then  print  f x;  else  print  uf x;  end 
else  print  ”  '* ; 

if  fO_dev  +  uC__dev  >  =  x  then  begin 

if  fO__dev  > »  x  then  print  fd;  else  print  ufd;  end 
else  print  "  " ; 

if  f  1  _proc  +  'Jl^proc  >=  x  *  1 0  then  begin 

if  fl_proc  >  *  r*lQ  then  print  f  p .  else  print  ufp;  end 
else  print  "  ” . 

print  1  space; 

if  f  1  _tb  +  u  1  __t b  Zr  —  x  then  begin 

if  fl__tb  >  =  x  then  print  fx.  else  print  uf x;  end 
else  print  M 

if  f  1  _d  e  v  ♦  ul^dev  >=  x  then  begin 

if  fl_dev  r  =  x  then  print  fd;  else  print  ufd;  end 
else  print  "  " , 

if  f2  jroc^u- jroc  Z}-  x  ■»  1 0  then  begin 

if  f  2  __p  r  o  c  /  =  x *  1 0  then  print  fp;  else  print  ufp;  end 
else  print  " 
print  1  space. 

if  f2_tb  +  u2_tb  >=  x  then  begin 

if  f2__tb  Z'*  x  then  print  fx;  else  print  ufx,  end 
else  print  M  M » 

if  f 2_d  e v  ♦  u2_d  e  v  >*  x  then  begin 

if  f2_dev  >  =  x  then  print  fd.  else  print  ufd;  end 
else  print  ”  " ; 

if  f3_pvor+u3_proc  Z=  x*lG  then  begin 

if  f3__proc  >=  x^lO  then  print  fp.  else  print  ufp;  end 
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else  print  "  " . 

print  1  space. 

if  f3_tb  *  u3_tb  >=  x  then  begin 

if  f3_tb  :■=  x  then  print  fx;  else  print  ufx;  end 
else  print  "  " ; 

if  f3_dev  +  u3_dev  '■  =  x  then  begin 

if  f3_dev  ;=  x  then  print  fd;  else  print  ufd;  end 
else  print  "  " . 

if  f4_proc»u4_proc  >=  x*10  then  begin 

if  f4_proc  >=  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  “ ; 

print  1  space. 

if  f4_tfc  *  u4_tb  !•=  x  then  begin 

if  f4_tb  ;■=  x  then  print  fx;  else  print  ufx;  end 
else  print  " 

if  f4_dev  +  u4_pev  >=  x  then  begin 

if  f4_dev  ;•=  x  then  print  fd;  else  print  ufd;  end 
else  print  " 

if  f5_proc+u5_proc  >  =  x*10  then  begin 

if  f5_proc  >  =  x*lO  then  print  fp,  else  print  ufp.  end 
else  print  ”  ” ; 

print  1  space; 


if  f5_tb  +  u5_tb  >=  x  then  begin 

if  f 5 _t b  =  x  then  print  fx;  else  print  ufx; 
else  print  "  " , 

if  f3_dev  *  u3_dev  >=  *  then  begin 

if  f5_dev  ;>=  x  then  print  fd;  else  print  ufd. 
else  print  ”  "; 

if  f 6_p r oc +u6_pr cc  >=  x*10  then  begin 

if  f6_proc  >-  x*lO  then  print  fp;  else  print 
else  print  ”  "; 

print  1  space; 


ufp;  end 


if  f6_tb  *  u6_tb  >=  x  then  begin 

if  ff»_tb  >*  x  then  print  fx;  else  print  ufx;  end 
else  print  “  ” ; 

if  f6_dev  +  u6_dev  >=  x  then  begin 

if  f6_dev  ;■=  x  then  print  fd;  else  print  ufd;  end 
else  print  “ 

if  f 7_p r oc +u7_pr oc  >=  x*10  then  begin 

if  f7_proc  .'■=  x*10  then  print  fp;  else  print  ufp;  end 
else  print  " 

print  1  space, 

if  f7_tb  +  u7_tb  >=  x  then  begin 

if  f7_tb  >=  x  then  print  fx;  else  print  ufx;  end 
else  print  "  “ ; 

if  f7_dev  +  u7_dev  >  =  x  then  begin 

if  f7_dev  >=  x  then  print  fd;  else  print  ufd;  end 
else  print  "  “ ; 

if  f S_p r oc +u8_p r oc  >■  x*10  then  begin 

if  f8_proc  > =  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  “ ; 
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print  2  spaces; 

If  f9_procru9_proc  >*  x-»lO  then  begin 

if  f9_proc  7=  «*10  then  print  fp.  else  print  ufp;  end 
else  print  "  "i 
print  2  spaces; 

if  f 10_p roc +u 1 0_pr oc  7=  x*10  then  begin 

if  fIO_proc  7=  x  •»  1 0  then  print  fp;  else  print  ufp;  end 
else  print  "  " ; 

print  2  spaces, 

if  f 1 1 _p r oc ru 1 l_pr oc  7=  x*10  then  begin 

if  fll_proc  7“  x*10  then  print  fp;  else  print  ufp.  end 
else  print  "; 

print  2  spaces; 

if  fl2_proc+ul2_proc  7=  x  ■»  1 0  then  begin 

if  fl2_proc  7“  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  " ; 

print  2  spaces; 

if  f 13_p roc+u 1 3_p  r oc  7»  x*10  then  begin 

if  fl3_proc  7*  t*10  then  print  fp;  else  print  ufp;  end 
else  print  "  " ; 

print  2  spaces; 

if  f 1 4_p roc +u 1 4_p r oc  >■  x*10  then  begin 

if  f!4_proc  7=  x*10  then  print  fp.  else  print  ufp;  end 
else  print  "  ” ; 

pr int  2  spaces; 

if  f 1 5_p r oc  +  u 1 5_pr oc  7=  x*lO  then  begin 

if  fl3_proc  7=  x * 1 0  then  print  fp;  else  print  ufp;  end 
else  print  ”  " ; 

print  2  spaces; 

if  f 1 6_pr oc+u 16_p r oc  7*  x*10  then  begin 

if  fl6_proc  7*  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  "; 

print  " 
let  x  =  x-xdiv 
end 

print  13  spaces, 

for  i  =  14  to  132  do  print 

print  "  “ 

print  16  spac es , " 1986" , 6  spaces, ” 1987", 6  spac es , " 1988" , 6  spaces, 

"1989", 6  space s. " 1990", 6  s p ac e s , ” 1 99 1 " , 6  spaces, " 1992", 6  spac es, " 1993", 

"  !  94  95  96  97  98  99  00  01" 

print  column  94, "i" 

print  "Tech  Base  ",fO_tb  using  forml, fl_tb  using  forml,f2_tb  using  forml, 
f3_tb  using  forml. f4_tb  using  forml, f5_tb  using  forml, 
f6_tb  using  forml,  f7_tb  using  forml, column  94,"!" 
print  "  f ufx ,"  )  ",-vO_tb  using  for m2,  -ul_tb  using  for m2, 

-uf_tb  using  f orm2, -u3_tb  using  for, m2, -u4_tb  using  form2, 

-u5_tb  using  f orm2< -u6_tb  using  f orm2. -u7_tb  using  form2, column  94,"! 
print  column  94,"!" 

print  "Development  ",fO_dev  using  forml, fl_dev  using  forml, 

f2_dev  using  f orm 1 , f 3_d e v  using  forml. f4_dev  using  forml, 
f5_dev  using  forml, f6_dev  using  forml, f7_dev  using  forml, column  94,"! 
print  "  (",  fd ufd .  "  !  ",-uO_dev  using  form2,  -ul_dev  using  form2, 

-u2_dev  using  f orm2. -u3_dev  using  f orm2> -u4_dev  using  form2, 

-u5_dev  using  f orm2, — u6_d ev  using  f orm2,  -u7_d ev  using  form2.  column  94, 
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print  column  94,"!" 

print  "Pr oc ur emen t  ",fl_proc  using  f orm 1 , f 2_p r o c  using  forml, 

f3_proc  using  f orml. f 4_prac  using  f orml, f 5_proc  using  forml, 
f6_proc  using  f orml , f7_p roc  using  forml , f8_proc  using  forml, 
column  94,"!  See  Out  Year  Procurement" 

print  column  94, "!" 
print  54  spaces, 
for  i=35  to  132  do  print 
print  “ " 

print  36  spaces, "1994", 6  spaces. "1995", 6  spaces, "1996", 6  spaces, "1997". 

6  spaces, " 1998", 6  s p ac a s , “ 1 999 “ , 6  s pac es . " 2000 “ , 6  s p ac e s , "200 1 " 
skip  1  line 

print  29  spaces, "Procurement  (Out  Years f9_proc  using  forml, 

flO_proc  using  f a rm 1 , f 1 1 _p r oc  using  f orml , f 12_proc  using  forml, 
fl3 _proc  using  f orml ,  f 14_p r oc  using  f orm  1 ,  f 1 5_pr oc  using  forml, 
fl6_proc  using  forml 

print  52  spaces,  -u9_proc  using  f orml , -u 10_pr oc  using  forml, 

-ull_proc  using  forml,  -ul2_proc  using  f orml ,  -u 13_proc  using  forml, 
-ul4_proc  using  f orml , -u 1 5_p roc  using  f orml , -u 16_pr oc  using  forml 
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•CDeficiency  Summary 

Last  changad  2/4/86.  added  report  mission  area.  system  tradoc  mission  area, 
and  date-time  stamp. 

2/7/86.  added  page  letter  parameter,  moved  page  number  to  input.  changes  to 
ssndesc  . 

3/20/86.  changed  to  mamp  database. 

3/29/86.  changed  to  include  all  systems. 

6/10/86  revised  the  read  statements. 

6/13/86  added  d#f_class  for  classification,  corrected  printing  of  cont_value. 
7/23/86  changed  the  uorkpac kage  input  variables  to  generic  years. 

7/23/86.  changed  to  generic  rdte  rollup  file  fundpro  (from  sysprol).  > 

database  manp  end 

define 


var iab 1 e 

linesleft 

type 

integer 

var  iab  le 

counter 

type 

integer 

var iab 1 e 

total_f und 

type 

integer 

var iab le 

pagebreak 

type 

integer 

variable 

pagetrall 

type 

character 

length 

1 

var lab le 

stars 

type 

character 

length 

4 

variab  le 

evalcount 

type 

integer 

var  iab  le 

f irstf  1 

type 

integer 

var  iab  le 

pno 

type 

integer 

variab 1 e 

break 

type 

integer 

var iab  le 

obreak 

type 

integer 

paramC 1 1 

p letter 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  mar g i n  0 
right  margin  132 
report  to  "def r o  1 1.  out " 
end 

read  into  b 
d  c  1  _d  e  f 

where  dcl_code  **  code  and  dcl_name  *  name 
end 

read  into  a 
b 

def_desc  def_type  def_class 
ssndef_ssn  ssndef_cont_value 
joining  b.dcl_def  m  optional  def_def 

and  b.dcl_def  »  optional  sendef_def 

end 


read  into  c 
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a 

pr ior l_ndef 

««n_un  ssn_acq._code  un_iac_mgr  ssn_da_ma  ssn_tradoc_ma 
lrrdp_titla  lrrdp_procfl 

lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf5  lrrdp_procf6 
lrrdp_procf7  lrrdp_procf8  lrrdp_proef9  lrrdp_proe f 10  lrrdp_proe f 1 1 
lrrdp_procf 12  lrrdp_procf 13  lrrdp_proe f 14  lrrdp_procf 15  lrrdp_proefl6 
fO_tb  f  l_tb  f  2_tb  f  3_tb  f4_tb  f3_tb  f6_tb  f7_tb 
fO_dev  fl_dev  f2_dev  f3_dev  f4_dev  f3_dev  f6_dev  f7_dev 
joining  a.  ssndef_ssn  »  optional  pr ior 1 _ssn_no 
and  a.  s»ndtf_un  »  optional  ssn_ssn 
and  a.  ssndef_ssn  »  optional  lrrdp_ssn 
and  a.  ssndef_ssn  »  optional  fp_ssn 

end 

sort  by  dcl_def  ssn_acq,_code  ssndef _eont_value  ssndef_ssn  end 

format 

page  header 

let  page tra i l=def_c lass 

if  pagetra i 1*"S"  then  print  column  S4,  "**■»***  SECRET  *■»****" 
else  print  column  47,  "****■»*  CONFIDENTIAL  ******" 
if  pagebreak^l  then  begin 
skip  1  1 ine 

print  "TRADOC  DEF I C I ENC Y :  ",  del _d e f ; 

print  *  (continued)"; 

print  column  SO,  name,  2  spaces; 

if  def_type  *  1  then  print  “Primary" 

else  if  def _typ e  “  2  then  print  “Related" 

else  if  def_type  »  3  then  print  "Non-Materiel" 

else  if  d ef _ty p e  »  4  then  print  "Health  Service” 

else  print  "  ” 

skip  1  line 

print  column  61.“  - — — - - — - - — - — _____ - — — 


print  column  61. "i  CON  !  86  87  88  89  90  91  92  93  94  95  96 

”97  98  99  00  01  S" 

print  column  61."! - i - 


end 

else  begin 
skip  4  lines 

print  "TRADOC  DEFIC IENCY:  ",  dc i^def ; 
print  column  SO, name,  2  spaces; 
if  def_type  »  1  then  print  "Primary" 
else  if  def_type  »  2  then  print  "Related" 

else  if  def_type  »  3  then  print  "Non-Materiel" 

else  if  def_type  ■  4  then  print  "Health  Service 

else  print  "  “ 
skip  1  line 
end 

let  linesleft  *  48 

before  group  of  dcl_def 
let  pagebreak  «  0 
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let  firstfl  »  0 
skip  to  top  of  page 
print  "DESCRIPTION: 
let  break  »  118 

while  def  _d*sc  Cbreak ,  break  JO"  "  do  let  break  »  break-1 
print  def _desc C 1 ,  b rea k 1 
let  obreak  *  break+1 
let  break  »  break+125 

while  def _d*sc Cbreak ,  break  30"  "  do  let  break  •  break-1 
print  7  spac es.  def _d*sc Cobreak .  break  3 
let  obreak  *  break+1 
let  break  *  break+125 

while  def _desc Cbreak ,  break 30“  "  do  let  break  m  break-1 
print  7  spaces,  def _desc Cobreaki  break  1 
let  obreak  *>  break+1 
let  break  »  brcak+125 

while  def_desc  Cbreak,  brea  k  30"  “  do  let  break  “  break-1 
print  7  spac es,  d *f_d*sc Cobrea k,  break  1 
let  obreak  »  break+1 
let  break  ■  break+125 

while  def _desc Cbr ca k ,  b rea k K>“  "  do  let  break  ■  break-1 
print  7  sp ac es .  d e f _d e sc C o b r ea k ,  brea k 1 
skip  2  lines 

print  column  61," - - - 


print  column  61, "i  CON  !  86  87  88  89  90  91  92  93  94  95  96 

"97  98  99  00  01  i " 

print  column  61.“! - !- - 

««  _ _ _ _ _ _ _  I  l« 

1 

let  linesleft  »  linesleft-10 

before  group  of  ssn_ac4_code 
if  lin*sleft<8  then  begin 
let  pagebreak  -  1 

if  linesleft  >  1  then  print  column  61.  " I  ",  column  67. "!", column  132, 
print  column  61." - - - - 


skip  to  top  of  page 
end 

if  firstfl  *  1  then  begin 

print  column  61.  “!", column  67,  “ ! col umn  132,"!“ 
print  column  61 ,  " S ", co lumn  67.  " i ",  column  132.”!" 
end 

els*  let  firstfl  -  1 
let  count*r»0 

if  tsn_acn_cod*  »  l  then  begin 

print  “Base  Case  Systems:  ",  column  61, "!". column  67.  " ! “ , c o 1 umn  132," 

print  " - "i  end 

els*  if  ssn_acq_cod*  ■  2  then  begin 

print  "Type  C lass i f i *d :", c o lumn  61 , " ! " , co lumn  67, " I  ",  column  132."!" 

print  " - end 

els*  if  ssn_acd_cod*  ■  3  then  begin 

print  "Development  Sys terns : ", co lumn  61 ,  " ! " , co lumn  67,  " ! " , co lumn  132 

print  " - "i  end 

els*  if  ssn_acg_cod*  ■  4  then  begin 

print  "P  IPs  :".  co  lumn  61,  "!",  column  67,  “I”,  cokain  132,"!“ 
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print  - "i  and 

al*a  if  ssn_ac q_cod*  *  3  than  bagin 

print  “Technology  Damonitrators: “•  column  61 .  " I ” . c o lumn  67, "!", column  132, 

print  “ - “;  and 

else  if  ssn_acq_cod*  *  6  then  bagin 

print  “Broad  Base  Tech  Area: “, column  61,  “!“, column  67, column  132,"!“ 

print  “ - “;  end 

else  if  ssn_acq._code  *  7  then  bagin 

print  "Requirement  Above  Cor  p  s  ",  co  lumn  61,  “  i  ”,  column  67,  column  132,",' 

print  " - 

end 

print  column  61 , “ ! co 1 umn  67, “ ! “, co 1 umn  132,"!“ 
let  linesleft  *  linesleft-4 


before  group  of  ssndef_ssn 
if  lin*sl*ft-C4  than  bagin 
let  pagebreak-1 

if  linesleft  >  1  then  print  column  61, 
print  column  61," - - 


“, column  67, “!“, column  132,”! 


skip  to  top  of  page 
end 

let  counter=counter+l 

print  column  61 ,  “ ! " , co lumn  67,  “  i  “, co 1 umn  132,”!" 
print  counter,".  ",  lr r dp_t i 1 1 e C 1 ,  303,  c o 1 umn  61,"!  ”, 

ssndef_cont_value,  column  67,  “ ! "i 

let  to ta I_f und*lr r dp_pr ocf 1  +  lrrdp_procf2+lrrdp_procf3  +  1 rr dp_pr oc f 4+ 
lrrdp_pracf3  ♦  lrrdp_proef6+lrrdp _procf7  +  lrrdp_procf8+ 
lrrdp_procf9  +  lrr dp_pr oc f 10+lrrdp_proc f 1 1  +  lrrdp_procf 12+ 
lrrdp_procfl3  +  lrrdp_procf 14+lrrdp_procf 13  +  lrrdp_procf 16 
if  ssndef_ssn  matches  “4*“  then  print  column  93, "CSTOCK.  FUNDED> " ; 
else  if  total_fund  -  0  then  print  column  93.  ”<NOT  SCHEDULED"; 
else  begin 

if  pr iorl_ndef =1  then  let  stars*"****"  else  let  stars=»"mmmm" 
if  Irrdp_procfl  >  0  then  print  stars;  else  print  ” 

if  lrrdp_procf2  >  O  then  print  stars;  else  print  "  "; 

if  lrrdp _procf3  >  0  then  print  stars;  els*  print  " 

if  lrrdp_procf4  >  O  then  print  stars;  else  print  ” 

if  lrrdp_procf3  >  O  then  print  stars;  else  print  "  "; 

if  lrrdp_procf6  >  0  then  print  stars;  else  print  "  "; 

if  lrrdp_procf7  >  O  then  print  stars;  else  print  " 

if  lrrdp_procf8  >  0  then  print  stars;  else  print  "  "; 

if  lrrdp_procf9  >  0  then  print  stars;  els*  print  "  "; 

if  irrdp_procf 10  >  0  than  print  stars;  else  print  "  "; 

if  lrrdp_procf 1 1  >  0  than  print  stars;  els*  print  ”  ”; 

if  lrrdp_procf 12  >  0  then  print  stars;  els*  print  "  ”; 

if  lrr dp_pr oc f 13  >  0  then  print  stars;  els*  print  "  "; 

if  lrrdp_procf 14  >  0  then  print  stars;  els*  print  "  "; 

if  lrr dp_pr oc f 13  >  0  then  print  stars;  els*  print  "  "; 

if  lrrdp_procf 16  >  0  then  print  stars;  els*  print  "  "; 


end 

print  column  132,"!" 

print  column  11,  “sen  number:  ", ssnd*f_ssn, column  30,  "command. 
ssn_amc_mgr C l ,  93 ,  "  -  “,  ssn_da_ma,  "  /  ",  ssn_tradoc_ma, 
column  61, " 1 " , c o lumn  67."!"; 
let  linesleft  »  lin*sl*ft-3 


D-62 
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after  group  of  ssnd*f_ssn 


let 

evalcount  » 

0 

if 

fO 

_tb+fO_d*v 

> 

0 

then 

print  "++++M 

els* 

print 

" 

if 

f  1 

_tb+f l_dev 

> 

0 

then 

p r i n t “ ++++ " 

els* 

print 

" 

if 

f  2 

_tb+f 2_d*v 

> 

0 

then 

pr  int 

els* 

print 

ft 

if 

f  3 

_tb+f3_d*v 

> 

0 

then 

pr in t 

els* 

print 

it 

if 

f  4 

_tb+f 4_d*v 

> 

0 

then 

pr in t 

els* 

print 

n 

if 

f3 

_tb+f 3_d  *v 

> 

0 

then 

print" 

els* 

print 

N 

if 

f  6 

_tb+f6_d*v 

> 

0 

then 

print 

else 

print 

ft 

if 

f 7_tb+f 7_d*v 

> 

0 

then 

pr  int  r,++++M 

else 

print 

•  1 

print 

column  132. 

1*  t  • 

after  group  of  dcl_d*f 
let  pagebreak  *  0 

if  IinesleftM  then  print  column  61 , " i “ ,  c o 1 umn  67.  "  !  " , c o 1 umn  132. 
print  column  61.  “ - - - 


page  trailer 
skip  1  1 ine 
print  "Legend : 

if  pagetrail  «  "S"  then  print  column  34.  '•*•*****  SECRET  *■****■*" 

else  print  column  47.  “**•»***  CONFIDENTIAL  ***■***•’ 

print  "  ****  -  System  Production  Funding ”. column  100. date.  2  spaces. time 

print  ”  rr.mmm  —  Multi—def.  System  Production  Funding" 

print  "  ++++  -  Work  Package  RDTE  Funding"; 

if  pletter«"Z“  then  print  column  60. pno 

els*  print  column  60. p letter pno  using  “###" 

let  pno  *  pno+1 


end 
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<  deficiency  to  system  cross  reference  check.  6/3/86 
6/30/86  changed  to  unclassified  with  new  guidance.  > 

database  mamp  end 

define 

variable  pno  type  integer 

paramCll  pletter  type  character  length  1 

param£21  code  type  integer 

paramC31  name  type  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "defsys. out” 
end 

read  into  a 
d  c  1  _d  e  f 

where  dcl_code  =*  code  and  dcl_name  “  name 
end 

read  into  b 

a 

ssndef_ssn  ssndef _con t_va 1 u* 
lrrdp_title 

joining  a.  dcl_def  «  optional  ssnd*f_def 
and  ssndef _ssn  ■  optional  lrrdp_ssn 

end 

read  into  c 
sc  l._ssn 

where  scl_cod*  “  code  and  scl_nam*  “  name 
end 

read  into  d 
b 
c 

joining  b  ssnd*f_ssn  ■  optional  c. scl_ssn 
end 

sort  by  dcl_d*f  ssndef_ssn  end 
format 

page  header 

print  column  47,  “***♦*  UNCLASSIFIED  *****'• 
skip  2  lines 

print  column  44, name  clipped,"  DEFICIENCIES  WITH  SYSTEM  BDP  RANKING" 
skip  2  lines 
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pag#  trailer 
skip  2  lines 

print  column  47, “**«#*  UNCLASSIFIED  ****#" 

print  column  100, date,  2  spaces,  time 

if  plett er«"Z“  then  print  column  60, pno 

else  print  column  60,  p  letter,  pno  using  ’•##<*" 

let  pno  ■  pno+1 

before  group  of  dcl_d#f 
print  dcl_def 

before  group  of  ssndef_ssn 

print  10  spaces,  ssndef_ssn,  1  space, 

if  scl_ssn<>"  “  then  print  else  print  “  ", 

print  3  spaces,  ssnd ef _c on t _va 1 ue.  3  spec e s,  1 r r dp_t 1 1 le 

end 
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<  Funded  werkpackage  data  for  systems  in  BDP  priority  ord*r.  This  fils  was 
taken  from  decsysbdp  on  1  May  86.  It  was  requested  by  Dr.  Ken  Oscar  to 
support  the  Belvoir  review  process.  It  includes  only  the  funded  workpkgs 
from  the  year  87  to  92.  > 

database  mamp  end 

define 


var iab le 

pno 

type 

integer 

var iab  le 

ent 

type 

integer 

variable 

tot87 

type 

long 

var iab  1* 

to  t88 

type 

long 

var iab le 

to  t89 

type 

long 

var iab 1 e 

tot90 

type 

long 

var iab le 

tot91 

type 

long 

var iab 1  * 

tot92 

type 

long 

paramC 1 1 

platter 

type 

character 

length  1 

paramC21 

code 

type 

integer 

par*mC31 

end 

input 

name 

type 

c  harac  ter 

length  12 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  O 
right  margin  132 
repo  t  to  "fundsysbdp. out" 
end 

read  into  b 
sc i_ssn 

where  scl_code  »  code  and  scl_nam*  »  name 
end 

read  into  a 
b 

ssn_amc_mgr  ssn_da_ma  ssn_tradoc_ma 
lrrdp_titl*  priorl_scor*  priorl_nd*f 
where  ssn_acy._cod*  >  2  or  *sn_acq._code  “  0 
joining  b.scl_ssn  =  optional  ssn_ssn 
and  b.sel_ssn  -  optional  lrrdp_ssn 
and  b  sci_ssn  »  optional  pr i or  1 _ssn_no 

end 

read  into  c 
b 

wkp kg_wkp sy s_i d x  wkpkg_title  wkpf_yr  wkpf_fund 
where  wkpf_fund  >  0  and  wkpf_yr  >  1986 
joining  b.scl_ssn  *  wkpsys_ssn 

and  wkpsy s_wkp k g_i d i  ”  wkp kgjukpsy s_i d « 
and  wkpkg_no_idx  *  wkpf _wkpkg_id* 

end 


read  into  d 
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a 

c.  uk  p  kg_uk  p  sy  s_i  d  x  c .  uikp  kg_t  i  1 1  e  c.uikpf_yr  c.wkpf_fund 
joining  a.  scl_ssn  »  optional  e.  itl_nn 
end 

sort  by  priorl_score  descending  priorl_ndef  descending 
scl_ssn  idkpkg_no  wkpf_yr  end 


forma  t 
page  header 

print  column  47. "*****  UNCLASSIFIED  *****" 
skip  2  lines 

print  column  44. name  clipped."  1-N  DEVELOPMENT  SYSTEM  BDP  RANKING" 
print  column  43. "WITH  FUNDED  RDT&E  WORKPACKAGE  TOTALS  SHOWN" 
skip  2  1 incs 

print  6  spaces. "SSN", 3  spaces. "DA  MA".2  spaces. "AMC  MGR". IS  spaces. 

“TITLE",  column  86,  "FUNDED  DEVELOPMENT  SCHEDULE  <SK>“. column  127,  "RATING 
print  column  78, "FYS7  FY88  FY89  FY90  FY91  FY92" 
skip  1  1  ine 

page  trailer 
skip  2  lines 

print  column  47,  "*•»*•»*  UNCLASSIF  IED  ***■»*'• 

print  column  100, date. 2  spaces. time 

if  pletter=“Z"  then  print  column  60, pno 

else  print  column  60, p  letter.  pno  using  "###" 

let  pno  =>  pna  +  1 

before  group  of  scl_ssn 
let  cnt  »  cnt+1 
let  tat87  *  0 
let  tot88  =  0 
let  to t89  ■  o 
let  tot90  »  O 
let  tot9l  »  O 
let  tot92  -  O 

print  cnt  using  "###.  “,scl_ssn,2  spaces,  ssn_da_ma, 

3  spaces,  ssn_amc_mgrC 1. 81.  1  spac e,  lrr dp_t i 1 1 eC 1 .  441 . 2  spaces; 

after  group  of  scl_ssn 

print  tot87  using  "#######  ",tot88  using  "#######  ",tot89  using  "####### 
to t90  using  "#######  ", tot9l  using  "#######  ", tot92  using  "#####*# 
priorl_score  using  “#######.##" 

before  group  of  wkpf_yr 


if  tukpf 

_yr  -  1987 

then 

let 

to  t87 

m 

totB7 

uik  p  f  _f  und 

else 

if 

wkpf_yr 

a 

1988 

then 

let 

tot88 

m 

totes 

+ 

uik  p  f  _f  und 

else 

if 

•iikpf_yr 

■ 

1989 

then 

let 

tot89 

m 

tot89 

uk  p  f _f und 

else 

if 

w  k  p  f  _y  r 

a 

1990 

then 

let 

tot90 

m 

tot90 

+* 

ukpf_f und 

else 

if 

w  k  p  f  _g  r 

* 

1991 

then 

let 

tot91 

m 

tot91 

+ 

t*kpf_f  und 

else 

if 

u  k  p  f  _y  r 

* 

1992 

then 

let 

tot92 

m 

to  t92 

4* 

wk  p  f _f und 

end 
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{  DECISION  AID  FOR  WORKP AC* ACES  BASED  ON  BDP  PRIORITIES. 
THIS  REPORT  SHOWS  THE  FUNDED  WORKP ACKAGES. 


4/25/86  changed  to  mamp  data  base. 

taken  from  decwpbdp.  altered  to  show  the  uor k pa c kag e  funded 
gjantities.  and  sorted  bg  the  subcategorg. 

5/12/86  limited  to  6  3.6.4  and  6.7  workpackages  > 


database  ramp  end 


define 


variable 

pno 

tgpe 

integer 

variable 

p  g  end 

tgpe 

integer 

var  i ab  1  e 

c  n  t 

tgpe 

integer 

paramC 1 2 

p  letter 

tgpe 

character 

length 

paramC21 

code 

tgpe 

integer 

p  ar amC  3 1 

name 

tgpe 

character 

length 

end 

input 

prompt  for  pno  using  "Please  enter  the 
end 


1 

12 


starting  page  number  > 


output 

left  marg  in  0 
right  margin  132 
report  to  "fundwpbdp.  out 
end 


read  into  b 
p  c  1  _i d  x 

where  pcl_code  =  code  and  pcl_name  *  name 

and  (pcl.subcat  »  "6.  3A“  or  pcl_subcat  ■*  "6.  3B"  or  pcl_subcat=  ”6.4 
or  pcl_subcat  =  "6.7") 

end 


read  into  c 

prior2_score  prior2_nsgs 

wkpkg_no_idx  wkpkg_subcat  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_title 
joining  b.pcl_idx  =  wk p k g_pro j_i d « 

and  wkpkg_no_idx  »  optional  pr i or2_wk p k g_i d x 

end 

read  into  d 

w k p f _w k p k g _i d x  wkpf_gr  wkpf_fund 
where  wkpf_fund  >  0 

joining  c  wkpkg_no_idx  •  wkpf_wkpkg_idx 
end 


read  into  a 
c 

d.wkpf_gr  d.wkpf_fund 

joining  c.wkpkg_r.o_idx  =  optional  d.wkpf_wkpkg_idx 
end 


sort  bg  wkpkg_subcat  prior2_score  descending  prior2_nsgs  descending 


Jun  3  14  32  1986  funduupbdp  Page  2 


u>  k  p  k  g _ p  e  wkpkg_proj  wkpkg_task  w  k  p  k  g  _n  o  uikpf_yr  end 


f o  r  ma  t 


page  header 

print  column  47,  "»•»•»•»<»  UNCLASSIFIED  *■»**■*•*" 
skip  2  lines 

print  column  47, name  clipped,  ■  1  TO  N  “ ,  uk p k g _s ub c a t  clipped, 
'•  WQRKPACKAGE  3DP  RANKINGS" 
print  column  50, "WITH  FUNDED  FISCAL  RESOURCES  SHOWN” 
skip  3  lines 

print  column  S7, "FUNDED  DEVELOPMENT  SCHEDULE" 

print  "  - - - 


print 

print 


PE/PROU/TASK/ WKPKG “ ■ 5  spaces, "TITLE", column  67, 
FY85  FY86  FY87  FY88  FY89  FY90  FY91 


print  " ; " 
let  pgend 


col umn 
=  0 


67, 


,  c  o 1 umn  1 32, 


page  trailer 

if  pgend  =  0  then  begin 

print  column  67,  "! ",  column  132. 

print  "  - - - 


FY92 


end 

else  skip  2  lines 
skip  2  lines 

print  column  47,  "*■»•**•»*  UNCLASSIFIED  ■»■***■*■*" 

print  column  100. date, 2  spaces, time 

if  pletter  =  "Z"  then  print  column  60, pno 

else  print  column  60-  p  1  e 1 1 e r ,  " - " ,  p no  using  "###" 

let  pno  =  pnij+1 

before  group  of  ukpkg_subcat 
let  cnt  =  0 
skip  to  top  of  page 

after  group  of  uk  p  k  g  __sub  ca  t 
let  pgend  =  1 

print  "I1,  column  67,  “  I  ”,  column  132,"!" 

print  ” -  - - 


before  group  of  wkpkg_no 
let  cnt  =  c  n  t  r i 

print  "  !  ",  cnt  using  "###  "  ,  ui  k  p  k  g  __t  1 1  lei  1,  55],  column  67, 

before  group  of  u/kpf_yr 
if  wkp  f_yrl-0  then  begin 

if  uj  k  p  f  _f  un  d 0  then  print  column  ( 8*  ( <n  k  p  f  _y  r- 1 985  >  *68  )  , 

iiikpf_fund  using  "####### 

end 


after  group  of  ukpkg_no 


print  column  132,"!" 

print  "  !  ",5  5 p ac ei , wk p k g _cmd ,  1  space, 

wkpkg_pe,l  space,  u/kpkg_proj,l  spat  e,  iukp  k  g  _tas  k 
uikpkg_no,  column  67,  "  !  ",  CO  lumn  132,"!" 
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<  DECISION  AID  FOR  WORKPACKAOES  BASED  ON  BDP  PRIORITIES. 

THIS  REPORT  SHOWS  THE  FUNDED  WORKPACK AGES. 

4/2S/86  changed  to  mamp  data  base. 

taken  from  decwpbdp.  altered  to  show  the  uorkpackage  funded 
quantities,  and  sorted  bg  the  subcategorg. 

5/12/86  taken  from  fundwpbdp. 

changed  to  include  onlg  6.  3  and  6.  4  and  6.  7  uior kpac kages.  eliminate 
subcategorg  sort,  added  extra  spacing  after  each  workpackage. > 

database  manp  end 

define 

variable  pno  tgpe  integer 

variable  pgend  tgpe  integer 

variable  cnt  tgpe  integer 

paramCll  pletter  tgpe  character  length  1 

paramC21  code  tgpe  integer 

paramC31  name  tgpe  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  marg  in  O 
right  margin  132 
report  to  "  f  undu/p  b  d  p2.  o  u  t " 
end 

read  into  b 
pc  1 _ i d  x 

where  pcl_code  =  cade  and  pcl_name  «  name 

and  (pcl_subcat  =  "6. 3A"  or  pcl_subcat  =  "6. 3B"  or  pcl_subcat  »  "6.4" 
or  pcl_subcat  =  "6.7") 

end 

read  into  c 

prior2_score  prior2_nsgs 

wkpkg_no_idx  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_title 
joining  bpcl_idx  =  wkpkg_proj_idx 

and  wkpkg_no_idx  *  optional  pr i or2_wk p kg _ i d x 

end 

read  into  d 

wk p f _wk p kg_i d x  wkpf_gr  wkpf_fund 
where  wkpf_fund  >  0 

joining  c.  wkp kg_no_id x  »  wk p f _wkp k g _i d x 
end 

read  into  a 
c 

d.wkpf_gr  d  wkpf_fund 

joining  c  .  wkp kg _no_i d x  “  optional  d  .  wk p f _wk p k  g _ i d x 

end 
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sort  by  prior2_score  descending  prior2_nsys  descending 

n*kpkg_pe  ip  k  p  V  g_p  ro  j  u/kpkg_task  wkpkg__no  wkpf_gr  end 


format 
page  header 

print  column  47,  "#*♦***  UNCLASSIFIED  ******" 
skip  2  lines 

print  column  49. name  clipped."  1  TO  N  UORKPACKAGE  3DP  RANKINGS" 

print  column  50, "WITH  FUNDED  FISCAL  RESOURCES  SHOWN" 
skip  2  lines 

print  column  87, "FUNDED  DEVELOPMENT  SCHEDULE" 


print  H - - 

print  "I 

print  " J • 

PE/PROU/TASK/WKPKG". 5  spaces, "TITLE", column  67, 
FY85  FY86  FY87  FY88  FY89  FY90  FY91 

FY92  ! 

f 

print  "  !  : 

* .  col umn  67<  "  '  "»  column  1 32 »  " • " 

let  pgend  =  0 

page  trailer 

if  pgend  =  0  then  begin 
print  “  - 


end 

else  skip  1  line 
skip  2  lines 

print  column  47, "******  UNCLASSIFIED  ****** 

print  column  100, date. 2  spaces, time 

if  pletter  =  "Z"  then  print  column  60. pno 

els*  print  column  60. p 1 e 1 1 er .  , pno  using  ”###" 

let  pno  «  pno+1 

on  last  record 

print  "  - - 


let  pgend  =  1 

before  group  of  uikpkg_no 
let  cnt  =  cnt+t 

print  ** !  ",  cnt  using  "  .  wkp kg_t i 1 1 e C 1 ,  553 .  c o l umn  67."!"; 

before  group  of  u»kp  f  _gr 
if  wkpf_gr>0  then  begin 

if  u,kpf_fund>0  then  print  column  <8*  (u/k  p  f  _gr- 1985  >  *68  > . 

wkpf_fund  using  "######*  "; 

end 

after  group  of  w  k  p  k  g  _n  o 
print  column  132."!" 

print  "I  ".5  spec *s.  wk p k g _emd ,  1  space. 

ukpkg_pe,l  space, uk p kg _p ro j.  1  space,  wkp kg_task  clipped,  1  space. 
iukpkg_no,  column  67,  "!",  column  132,  ”!  ” 


Jun  3  14:32  1986  funduipbdp2  Pag*  3 


f  print  column  67,  “I",  column  132,''!" 

end 

* 

f 

! 


I 

I 

I 

I 

I 
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<  DECISION  AID  FOR  UORKPACKAGES  BASED  QN  LRRDP  PRIORITIES. 

THIS  REPORT  SHOWS  THE  FUNDED  WORKPACK AGES. 

4/25/86  changed  to  mamp  data  base. 

taken  from  decwpbdp.  altered  to  show  the  workpackage  funded 
quantities,  and  sorted  bg  the  subcategorg. 

5/12/86  taken  from  fundwpbdp  and  Irrdpwp.  removed  subcategorg  sort,  limited 
to  6.  3A  to  6.4  and  6.7  wor  k  p  ac  kag  e  s .  added  report  spacing.  > 

database  mamp  end 

def  ine 

variable  pno  tgpe  integer 

variable  pgend  tgpe  integer 

variable  cnt  tgpe  integer 

paramCll  pletter  tgpe  character  length  1 

paramC21  code  tgpe  integer 

paramC3J  name  tgpe  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  “ 
end 

output 

left  marg in  0 
right  marg in  132 
report  to  “ fund  wplrp.  out" 
end 

read  into  b 
p c l_i d  x 

where  pcl_code  «  code  and  pcl_name  ”  name 

and  (pcl_subcat  =  "6.  3A“  or  pcl_subcat  ■>  "6.  3B"  or  pcl_subcat  *  "6.4" 
or  pcl_subcat  *  "6.7") 

end 

read  into  a 

wkp»g_no_idi  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_title  wkpkg_pdip 
joining  b  pcl_idx  =  wk p k g _p r o j _i d x 
end 

read  into  f 

a 

lrrdppri_pri 
o  k  ■*  1 

joining  a.wkpkg_pdip  =  Irrdppn _pdip 
end 

read  into  g 
a 

lrrdppri_pri 
ok  «  0 

where  lrrdppri_pri  ”00 

joining  a  wkpkg_pdip  ■  optional  Ir r d p p r i _p d i p 
end 
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assign  h  =  f  union  g  end 
read  into  d 

wkpf_wkpkg_idx  wkpf_yr  wkpf_fund 
where  ukpr_f und  >  0 

joining  a.  ink  p  k  g  _no_i  d  x  «  wk p f _wk p k g_i d x 
end 

read  into  e 
h 

d.  wkpf_yr  d.u/kpf_fund 

joining  h  wkpkg_no_idx  =  optional  d.  uikpf_wkp  kg_id  x 
end 

sort  by  ok  descending  lrrdppri_pri 

uikpkg_pe  wkpkg_proj  wkpkg_task  w  k  p  k  g  _n  o  w  k  p  f  _g  r  end 


format 


page  header 

print  column  47,  "******  UNCLASSIFIED  ******" 
skip  2  lines 

print  column  49, name  clipped."  1  TO  N  WORKPACKAGE  PDIP  RANKINGS 
print  column  50, "WITH  FUNDED  FISCAL  RESOURCES  SHOWN" 
skip  2  lines 

print  column  87, "FUNDED  DEVELOPMENT  SCHEDULE" 

print  "  -  - 


print 

print 


PE/PROJ/TASK/WKPKG". 5  s p a c e s .  " T I TLE" ,  c o  l umn  67, 
FY85  FY86  FY87  FY88  FY89  FY90  FY9I 


print  " ! " 
let  p g end 


column  67. 
*  0 


column  132. 


FY92  I  " 

_ _ _  _ _ _ _  H 


page  trailer 

if  pgend  »  0  then  begin 
print  "  - 


end 

else  skip  1  line 
skip  2  lines 

print  column  47, "******  UNCLASSIFIED  ****** 

print  column  100. date. 2  spaces, time 

if  pletter  =  "Z"  then  print  column  60, pno 

else  print  column  60. p 1 e t ter , pno  using  "###" 

let  pno  »  pno+1 


on  last  record 
print  "  - 


let  pgend  *  1 


before  group  of  wk  p  k  g_no 
let  cnt  *  cnt+1 
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print  "  !  cut  using  "  ###  ".u.'kpkg_titieCl,  333.  column  67,  “  I  "  , 

befors  group  of  w  k  p  f  _g  r 
if  uikpf_gr}0  then  begin 

if  wkpf_fund>0  then  print  column  ( 8* ( w k p f _g r- 1 985 > +68 ) . 

tukpf.fund  using  "####### 

end 

after  group  of  mkpkg_no 
print  column  132,''!" 

print  " !  ".5  spaces.  u'kpkg_cmd,l  space. 

ukpkg_pe,l  s  p  ac  e .  ink  p  k  g  _p  r  o  j .  1  space .  uk  p  kg  _tas  k  clipped.  1  space. 
iukpkg_no.  col  umn  67,  "  !  col  umn  1 32,  "  !  " 
print  " ! ”,  column  67.  " ! " ,  c o 1 umn  132,"!" 

end 
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{  report  to  generate  the  highest  priority  pdip  for  all  systems  in  the  control 
file  to  be  input  directly  into  hipri  file  using  load  ascii.  > 

database  ranp  end 

output 

page  length  32000 
top  margin  0 
left  margin  0 
right  mar g in  132 
report  to  "hipri.  out" 
end 

read  into  c 
un i s  sn_ssn 

lrrdp_title  lrrdp_pdip  lrrdppri_pri 
ok  =  1 

joining  umssn_ssn  =  lrrdp_ssn 

and  lrrdp_odip  =  lrrdppri_pdip 

end 

read  into  b 
unissn_ssn 

lrrdp_title  lrrdp_pdip  lrrdppri_pri 
ok  =  0 

u/here  lrrdppri_pri  =  0.0 

joining  unissn_ssn  =  optional  lrrdp_ssn 

and  lrrdp_odip  =  optional  lrrdppri_pdip 

end 

assign  a  =>  c  union  b  end 

sort  by  unissn_ssn  ok  descending  Irr dp pr i_pr i  end 
format 

before  group  of  unissn_ssn 

print  unissn_ssn,  " I  ",  lrrdp_pdip.  " ! "»  lrrdppri_pri,  "  i  " , ok,  "i",  lrrdp_title,  "i " 
end 
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database  mar.p  end 
define 

variable  cnt  type  integer 
variable  flag  type  integer 
variable  v  type  character  length  1 
end 

output 

top  margin  0 
page  length  32000 
left  margin  0 
right  marg in  132 
report  to  "joinassr. out" 
end 

read  into  a 
assn 
end 

sort  by  assn_ssn  assn_assoc_ssn  end 
format 

before  group  of  assn_ssn 
let  cnt  =  0 
let  flag  =  0 
let  v  =  ” ! " 
print  assn_ssn.v; 

before  group  of  a s sn_a s s o c _s sn 
let  cnt  =  cnt*l 
if  cnt>15  then  let  flag  »  1 
if  flag  =  0  then  print  assn_assoc_ssn< v; 

after  group  of  assn_ssn 
let  cnt  =■  15-cnt 
u/hile  cnt>0  do  begin 
print”  ".v; 

let  cnt  =  cnt-1 
end 

print  "" 


end 
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database  mamp  end 
output 

report  to  "lrrdp.out" 
end 

read 

lrrdp_ssn  lrrdp_title 
ssn_tradoc_ma 

joining  lrrdp_ssn  »  optional  ssn_ssn 
end 

sort  by  lrrdp_ssn  end 

format 

page  header 

print  column  SO, "LRRDP  SYSTEMS  BY  SSN" 
skip  2  lines 

before  group  of  lrrdp_ssn 

print  32  spaces.  lrrdp_ssr.  5  spaces.  ssn_tradoc_ma,  5  s pac es,  lr r d p_t i 1 1 e 
end 
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database  mamp  end 
output 

report  to  "lrrdpl. out" 
end 

read  into  a 

lrrdp_s*n  lrrdp_title 
ssn_tradoc_ma 

joining  lrrdp_ssn  =  optional  ssn_ssn 
end 

sort  by  lrrdp_title  lrrdp_ssn  end 

format 

page  header 

print  column  30. “LRRDP  SYSTEMS  BY  TITLE" 

Skip  2  lines 

before  group  of  lrrdp_ssn 

print  32  spaces.  lrrdp_ssn.  3  spaces,  s sn_tradoc_ma.  5  spaces,  lrrdp_title 


end 
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<  This  report  produces  a  single  list  of  all  lrrdp  pdips  and  priorities  for 
us*  in  interpreting  the  lrrdp  priority  outputs  > 

database  man p  end 

define 

variable  pno  type  integer 

paramCll  pletter  type  character  length  l 
end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "  lr r d p pr  i  .  ou t " 
end 

read 

lrrdppr  i 
end 

sort  by  lr r d ppr i_p d i p  end 

format 

page  header 

print  column  47,  "****♦  CONFIDENTIAL  ****♦'■ 
skip  2  lines 

print  column  47, "  DA  PRIORITY  BY  POIP  AND  INCREMENT" 
skip  2  lines 

print  6  spac es, "PDIP/ INCREMENT" , 6  s pac * S , “PR IOR I TY" 
skip  1  line 

page  trailer 
skip  2  lines 

print  column  47,  "***♦*  CONFIDENTIAL  *■***■*" 

print  column  100, date, 2  spaces, time 

if  pl*tt*r»"Z"  then  print  column  60, pno 

else  print  column  60, p letter,  pno  using  "###" 

let  pno  =  pno+1 

before  group  of  lrrdppri _pdip 

print  6  spac es,  1 r rdppr i _p d i p C 1 , 41,  1 rr d ppr i _pdipC3,63,6  spac es,  lrrdppr i_pr i 

end 
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<  System  priority  report  based  on  the  LRRDP  priorities. 

4/23/86  changed  to  mamp  database. 

4/25/86  changed  to  reflect  classified  nature  of  the  lrrdp  priorities. 

added  parameter  to  select  or  deselect  the  priorities. 

5/2/86  changed  to  print  only  the  highest  priority  pdip  for  one  system. 
5/12/86  added  the  base  case  systems  and  stuck  them  at  the  head  of  the 

database  mamp  end 

define 


var  iab 1 e 

cnt 

type 

integer 

var  table 

pno 

type 

integer 

p  aramC 1 J 

p  1  e  t  te  r 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramC3 1 

name 

type 

charac  ter 

length 

12 

paramC4] 

c  lass 

type 

charac  ter 

length 

1 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  mar g in  132 
report  to  "lrrdpsys.  out" 
end 

read  into  b 
s  c  1  _s  s  n 

inhere  scl_code  =  code  and  scl_name  =  name 
end 

read  into  a 
b 

ssn__amc_ngr  ssn_da_ma 
b  c  =  0 

where  s sn_ac q_c od e  >  2  or  s  sn_ac<i_c  ode  =  0 
joining  b  scl_ssn  =  optional  ssn_ssn 
end 

read  into  d 
b 

ssn_amc_mgr  ssn_da_ma 
b  c  *  1 

where  ssn_acg_code  =  1 
joining  b.scl_ssn  =  ssn_ssn 
end 

assign  e  =  a  union  d  end 

read  into  c 

e 

hipri_pdip  hipri_pri  hipri_ok  hipri_title 
joining  e.scl_ssn  =  hipri_ssn 
end 


list.  > 
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age 


sort  by  be  descending  descending  hipri_pri  s  c  1  __s  s  n  hipri_pdip  end 

format 

page  header 

if  class  =  "U"  :■>«■  r.-lyin-  1'  UNCLASS  IF  IED  •»****" 

else  print  column  47  •  •***  CONFIDENTIAL  ****+" 

skip  2  lines 

print  column  46, "DA  0£ ,E_3pM£M "  SYSTEM  PR IQRITy  FDR  ".name 
skip  2  lines 

print  17  spaces,  "SEN".  5  spaces,  'DA  MA".  4  spaces,  “A MC  MGR",  15  spaces, 
"TITLE",  column  98."  RDIP  PRIORITY" 

skip  I  line 

page  trailer 
skip  2  lines 

if  class  =  “U"  then  print  column  47,  "*•»***  UNCLASSIFIED  ***«■■*“ 

else  print  column  47,  "****•»  CONFIDENTIAL  *•****'■ 

print  column  1 00, date, 2  spaces, time 

if  pletter="Z"  then  print  column  60, pno 

else  print  column  60, p letter, pno  using  “###" 

let  pno  =  pno+1 

before  group  of  hipri_pdip 
let  ent  =  cnt+1 

print  10  spaces,  ent  using  ",scl_ssn>4  spaces,  ssn_d a _ma, 

5  spaces,  ssn_amc_itigr,  column  30,  h  i  p  r  i  _t  i  1 1  e  C  1 ,  50 3 , 2  spaces, 
hipri__p dipCI,  43,  hipri_pdipC5,  63,  2  spaces; 
if  bc=l  then  print  "  base  case" 
else  if  class  =  "C"  then  begin 

if  hipri_ok=l  then  print  hipri_pri  else  print  ”  not  assigned" 
end 

else  begin 

if  hipri_ok=i  then  print  ""  else  print  "  not  assigned" 
end 


end 
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<  Workpackage  priority  report  based  on  1  rr  dp  priorities. 

4/23/86  changed  to  the  mamp  data  base. 

4/25/86  changed  to  reflect  classification  of  Irrdp  priorities  and  to 
add  parameter  to  deselect  printing  of  classification. 

5/12/86  limited  to  6.3.  6.4,  and  6.7  wor k pac k ag es. } 

database  mamp  end 

def  ine 

variable  cnt  type  integer 

variable  pno  type  integer 

paramCl]  pletter  type  character  length  1 

paramC23  code  type  integer 

paramC33  name  type  character  length  12 

paramC41  class  type  character  length  1 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  mar g  in  0 
right  mar g in  132 
report  to  "lrrdpwp  out" 
end 

read  into  b 
p  c  1 _ i  d  x 

where  pcl_code  =  code  and  pcl_name  =  name 

and  (pcl_subcat  =  "6.  3A"  or  pcl_subcat  =  "6.  3B"  or  pcl_subcat  =  "6.4" 
or  pcl_subcat  =  "6.7") 

end 

read  into  a 

U)kpkg_cmd  wkpkg_no  wkpkg_pe  wkpkg_proj  ulkpkg_task  wkpkg_title  wkpkg_pdip 
joining  b.pcl_idx  =  u/k  p  kg_p  r  o  j_id  x 
end 

read  into  c 

a 

lmdppri_pri 
o  k  =  1 

joining  a.  wkpkg_pdip  =  Irrdppri __p  d  i  p 
end 

read  into  b 
a 

lrrdppri_pri 
ok  =  0 

where  lrrdppri_pri  =0.0 

joining  awkpkg_pdip  =  optional  lrrdppri_pdip 
end 

assign  a  =  c  union  b  end 
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sort  by  ok  descending  lrr d p p r i _pr i 

wkpkg_pe  wkpkg_proj  wkpkg_task  wk  pkg_.no  end 

forma  t 
page  header 

if  class  =  "U"  then  print  column  47,  "*****  UNCLASSIFIED  ***** 
else  print  column  47,  ''****♦  CQNF  IDENTIAL  *****" 
skip  2  1 ines 

print  column  47,"  DA  WQRKPACKACE  PRIORITY  FOR  ".name 
skip  2  lines 

print  6  spaces,  “PE  PROJ  TASK  NO",  18  s p ac e s ," T I TLE ",  45  spaces, 

"COMMAND", 6  s p ac e s , "PD IP  PRIORITY" 

skip  1  line 

page  trailer 
skip  2  lines 

if  class  =  "U"  then  print  column  47, "*****  UNCLASSIFIED  ***** 

else  print  column  47, “****♦  CONFIDENTIAL  *♦***" 

print  column  100, date. 2  spaces. time 

if  pletter="Z"  then  print  column  60. pno 

else  print  culumn  60,  p  1  e 1 1 er ,  " - “ . p n o  using  "###" 

let  pno  =  pno+1 

after  group  of  wkpkg_no 
let  cnt  =  cnt+1 

print  cnt  using  "####  ",  wkp kg_pe,  1  spac e.  uk p k g_pr o j .  1  spac e.  wk p k g_tas k  , 

1  space.  uikpkg_n o,3  spaces.uikpkg_title,uikpkg_cmd,ijJkpkg_pdipCl,43, 
wkp  kg_pd  ip  C5.  63/ 
if  class  *  "C"  then  begin 

if  ok“l  then  print  lrrdppri_pri  else  print  "  not  assigned" 
end 

else  begin 

if  ok  =  l  then  print  " "  else  print  "  not  assigned" 
end 

end 


D-85 


Ju 1  16  IS: 03  1986  mamppdip  Page  1 


<  MAMP  PDIP  REPORT.  7/16/86. 

This  report  is  an  abbreviated  lrrdp  summary  that  reflects  the  data  in  the 
mamp.  It  is  intended  for  high  level  review  of  the  mission  area  program  > 

database  mamp  end 

def ine 


var  iab  1  e 

ent 

type 

integer 

var iab 1 e 

cont 

type 

integer 

var iab  1  e 

break 

type 

integer 

var iab  1  e 

ob  rea  k 

type 

integer 

variable 

pno 

type 

integ  er 

var  iab  1  e 

unf 

type 

integer 

var  iab le 

stars 

type 

char ac  ter 

length 

3 

paramC 1 1 

p letter 

type 

charac  ter 

length 

1 

paramC2 1 

code 

type 

integer 

paramC31 

name 

type 

charac  ter 

leng  th 

12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  0  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "mamp p d i p  ou t “ 
end 

read  into  c 
s  c  1  _s  s  n 

where  scl_name  =  name  and  scl_code  =  code 
end 

read  into  a 
c 

ssn_amc_mgr  ssn_tradoc_ma  ssn_da_ma 
bctc  =  0 

where  s  sn_ac  q,_c  od  e  <  3 
joining  c.  scl_ssn  =  optional  ssn_ssn 
end 

read  into  b 
c 

ssn_amc_mgr  ssn_tradoc_ma  ssn_da_ma 
be  tc  =  1 

where  s  sn_ac  q,_c  od  e  >  2 
joining  c.scl_ssn  »  optional  ssn_ssn 
end 

assign  c  =  a  union  b  end 

read  into  b 
c 

pr i or  1 _sc  or e 
lrrdp 
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lrrdppri 

joining  c.scl_ssn  *  optional  p r i or l_ssn_no 
and  c.scl_ssn  *  lrrdp_s»n 
and  lrrdp_pdip  =  optional  lrr d p pr i _p d i p 

end 

read  into  d 
p  c  1  _i d  x 

where  pcl_cat  =  "6.3"  and  pcl_subcat  O  "6.5" 
and  pc l_code  =  code  and  pcl_name  =  name 

end 

read  into  e 
proj_title 

wkpkg-WkpsgS-idx  uikpkg_pdip 

wfcpfr_fO  wkpfr_fl  wkpfr_f2  wkpfr_f 3  wkpfr_f4  wkpfr_f5  wkpfr_f6  n*kpfr—  f7 
uikpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u5  wkpfr_u6  wkpfr_u7 
joining  d.pcl_idx  =  wkp k g_p ro j_i d x 

and  wkpkg_no_idx  =  optional  wk p f r _wk p kg_id x 
and  d.pcl_idx  =  proj_idx 

end 

read  into  c 
b 
e 

joining  b  1 r r d p _s g s_i d x  =  optional  un i wk p _s g s_i d x 

and  un iwk p _wk p k g _i d x  =  optional  e  wk p k g_wkp sg s_i d x 

end 

sort  bg  1  r  r  d  p  _p  d  i  p  C  1 , 4  3  1  r  r  d  p  _p  d  i  p  C  5,  63  bctc  priorl_score  descending 
scl_ssn  wkpkg_pe  wkpkg_proj  wkpkg_cmd  end 

format 

page  header 
let  cnt  =  0 

print  column  47.  “*•»*■**  CONFIDENTIAL  **■*■**" 
skip  2  1  ines 

print  column  52. “MAMP  PDIP  SUMMARY  FOR  ".name  clipped 
skip  1  line 

print  "PDIP:  “.lrrdp_p dipCI.  43; 
if  cont  =  1  then  prin;  "  (continued ) 

print  column  28.  "Title:  " .  1 r r d p p r i _t i 1 1 e .  c o 1 umn  65. 

"DA/TRADOC  Mission  Areas:  "»  lrrdppr i_da_ma.  "  /  "  .  lr r d ppr i_tr ad oc_ma. 
column  1 10.  "Pr op onen t :  " .  lrr d p pr i_trad oc_pro 

let  cont  =  0 
skip  2  lines 

print  column  15,  "SYSTEM  AND  RE*.  ATED  PROJECT  TITLES", 
column  87, "PROCUREMENT /RDTE  SCHEDULE" 
print  column  75. 

print  col  umn  75, 

'*!  86  87  88  89  90  91  92  93  94  95  96  97  98  99  00  01,’  BDP  !” 
print  column  75. 
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page  trailer 

print  “Legend :  ",  column  47, "*****  CONFIDENTIAL  ♦****" 

print  "***/"•'••''  -  Funded/Unfunded  Procurement",  column  100.  dat’,2  spaces,  time 

print  "+►  +  / - -  Funded /Unfund  ed  RDTE'1; 

if  pletter=“Z“  then  print  column  60,  pno 

else  print  col umn  60. p letter, " -".pno  using  “###" 

let  pno  =  pno  +  1 

before  group  of  lr r d p_p d i p C 1 , 4] 
skip  to  top  of  page 

before  group  of  lrrdp_pdipC5,63 
if  cnt  >  37  then  begin 
let  cor. t  =  1 
skip  to  top  of  page 
end 

print  column  73.  "  !  column  1 24.  "  !  " .  c  o  1  umn  132.'':" 

print  col umn  5.  "Increment:  lrrdp_p dipCI. 43,  ”  — lrrdp_pdipC5,  63. 

column  30.  “Pr  i  or  i  ty  :  “ .  1  r  r  d  p  pr  i  _p  r  i  using  "####.##"; 
print  co 1 umn  75,  ’’  !  " ,  col umn  124,  " ! " , cc 1 umn  132,  " ! " 

if  1 r r d p p r i _p r i >800  0  or  1 rr d p p r i _p r i<l .  0  then  let  unf  =  l  else  let  unf=0 
let  cnt  =  cnt +2 

after  group  of  lrrdp_pdipC5-63 

if  cnt  <  43  then  print  column  75,  " I ” , c o 1 umn  124,  " ! " ,  c o  1  umn  132,"!" 

print  column  75,"  - - 

let  cnt  =  cnt+2 

before  group  of  bctc 

if  cnt  >  39  then  begin 
let  cont  *  1 
print  col umn  75. 


skip  to  top  of  page 
end 

print  column  75.  “'.''.column  124,  column  132,  ”!" 

if  bctc  =  0  then  print  column  10,"*-**  Procurement  Systems  ***"; 

else  print  column  10.  “***  Development  Systems  ***"; 
print  column  73,  ’’!  ”,  column  1 24,  "  !  " ,  c  o  1  umn  132-  “!  " 
print  column  75.  “  .  c  o  1  umn  1 24,  '• !  " ,  c  o  1  umn  132,"!" 
let  cnt  =  cnt+3 

before  group  of  scl_ssn 
if  cnt  >  42  then  begin 
let  cont  =  1 
print  column  75, 


skip  to  top  of  page 
end 

let  cnt  *  cnt+1 

print  scl_ssn,2  sp ac es .  1 rr d p _t 1 1 1 eC 1 .  55 3  ,  1  space, 
ssn_da_ma,”  /  ",ssn_tradoc  ma,  column  75."!'; 


if 

unf=l  then  let 

stars 

m  " 

else 

let  stars*"***" 

if 

1 rr dp_pr oc  f 1 >0 

then 

print 

stars; 

else 

print  " 

if 

lr rd  p _p  r oc  f 2>0 

then 

pr  int 

stars; 

else 

print  ” 

if 

Irrdp  _proc  f3>0 

then 

print 

stars; 

else 

print  " 
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if  lrr  dp  _p  r  oc  f  43’0  then  print  stars;  else  print  " 

if  1 r r d p _pr oc f 3>0  then  print  stars;  else  print  " 

if  lrr  d  p  _p  roc  f  63>0  then  print  stars;  else  print  "  “  > 

if  lrrdp_proc f73>0  then  print  stars;  else  print  " 

if  lrr d p _pr oc f 83>0  then  print  stars;  else  print  "  ", 

if  Ir  r  d  p  _p  r  oc  f  93>0  then  print  stars;  else  print  " 

if  lrr d p _pr oc f 10>0  then  print  stars;  else  print  " 

if  lrrdp_procfll>0  then  print  stars;  else  print  ” 

if  lrr dp_pr oc f 12>0  then  print  stars;  else  print  " 

if  lrr  dp  _procfl3:-0  then  print  stars;  else  print  “ 

if  lrrdp _procfl4>0  then  print  stars;  else  print  "  "; 

if  lrr d p _p r oc f 13>0  then  print  stars;  else  print  " 

if  lrrdp_proc  f  16>0  then  print  stars;  else  print  "  "; 

if  priorl_score  =0.0  then  print  column  124, " ! “ , c o 1 umn  132.“!" 

else  print  column  124.  “ ! pr i or  1 _sc or e  using  "  #####  ”.  column  132."! 

after  group  of  (ukpkg_cmd 

if  ukpkg_cmdO“  "  then  begin 
if  cnt  >  42  then  begin 
let  cont  =  1 
print  col umn  75, 


skip  to  top  of  page 
end 

let  cnt  =  cnt+1 

print  8  s pac e s  .  ink  p  k  g  _p  e .  1  s  p  ac  e.  ukp  k  g_p  r  o  j ,  1  spac  e.  uik  p  k  g  _cmd  C  1 , 8  3  , 
1  spac e,  p ro j_t i 1 1 eC 1 ,  453,  c o 1 umn  75,“!"; 


if  group  total  of  wkpfr_fQ  >  0  then  begin 


if 

group 

tota  1 

of 

u/k  p  f  r  _uO 

> 

0 

then 

print 

else 

print 

"+  +  +•'  i 

end 

else 

begin 

if 

group 

tota  1 

of 

wkpfr_uO 

3> 

0 

then 

print 

" - "  i 

else 

print 

H  II  . 

1 

end 

if  group  total  of 

ui  k  p  f  r  _f  1  ;• 

0 

then  begin 

if 

g  roup 

total 

of 

wkpfr_ul 

> 

0 

then 

pr  int 

else 

p  r  i  n  t 

“+  +  +  " ; 

end 

else 

begin 

if 

group 

total 

of 

wkp  f r_u 1 

'> 

0 

then 

print 

" - '* ; 

else 

print 

M  ii . 

end 

if  group  total  of 

uik  p  f  r  _f  2  > 

0 

then  begin 

if 

group 

tota  l 

of 

wk  p f r _u2 

> 

0 

then 

print 

. 

else 

print 

; 

end 

else 

begin 

if 

group 

total 

of 

wkp  fr_u2 

> 

0 

then 

print 

" - " ; 

else 

print 

i 

end 

i f  group  tota  l  of 

ukp  f r _f 3  > 

0 

then  begin 

if 

group 

tota  1 

of 

wkp  f r_u3 

0 

then 

print 

else 

print 

end 

els* 

begin 

i  f 

group 

tota  1 

of 

ui  k  p  f  r  _u  3 

3> 

0 

then 

print 

" - " ; 

else 

print 

"  i 

end 

if  group  total  of 

wk  p  f r _f 4  > 

0 

then  begin 

if 

group 

tota  1 

of 

wkp  f r_u4 

> 

0 

then 

print 

"  ; 

else 

print 

end 

•  Is* 

begin 

i  f 

group 

total 

of 

wkp  f r _ u 4 

> 

0 

then 

pr  int 

" - 

else 

print 

M  i»  . 

end 

if  group  total  of 

ukpfr_f3  3* 

0 

then  begin 

if 

group 

total 

of 

wk  p  f r_u3 

> 

0 

then 

print 

i 

else 

print 

"  ; 

end 

•  Is* 

begin 

if 

group 

total 

of 

w  k  p  f  r  _u  5 

0 

then 

print 

" - "i 

else 

print 

"  " ; 

end 

if  group  total  of 

wkpfr_f6  3’ 

0 

then  begin 

if 

group 

tota  l 

of 

w  k  p  f  r  _  u  6 

N 

0 

then 

pr  int 

"  i 

else 

pr  int 

end 

•  Is* 

begin 

if 

group 

total 

of 

wkp  f r _u6 

> 

0 

then 

print 

" - "  i 

else 

print 

M  M  . 

end 

if  group  total  of  ukpfr_f7  >  0  then  begin 
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if  group  total  of  wkpfr_ u7  >  0  then  print  else  print  "+++••,  end 

else  begin 

if  group  total  of  wkpfr_u7  >  0  then  print  else  print  "  end 

print  column  1 24/  "  J  ",  c o  1  umn  132*  "  •  ** 
end 

end 
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r 

t 


<  6/17/36.  SYSTEM/PD  IP /COMMODITY  rtport. 

7/10/86.  changed  to  unclassified  given  new  guidance. 
7/11/86.  added  c lass i f icat ion  parameter.} 

database  mamp  end 

define 


var iab le 

cnt 

type 

integer 

var iab  1  e 

head 

type 

integer 

variab  le 

cont 

type 

integer 

var iab  1  e 

break 

type 

integ  er 

var  iab  1  e 

obreak 

type 

integer 

variab  1  e 

pno 

type 

integ  er 

paramC 1 1 

p letter 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramCJ ] 

name 

type 

charac  ter 

length 

12 

paramC41 

class 

type 

character 

length 

1 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  “ pd i p c om. ou t " 
end 

read  into  b 
s  c  l  _*  s  n 

where  scl_name  *  name  and  scl_code  ”  code 
end 


read  into  c 
b 

ssn_amc_mgr  ssn_acq._code  ssn_com_iine  ssn_tradoc_ma  ssn_da_ma 

com_acq_strat  ac<^_type 

joining  b  scl_ssn  »  optional  ssn_ssn 

and  ssn_ac<i_code  »  optional  acq._code 
and  ssn_com_line  «  optional  com_com_line 

end 

read  into  a 
c 

pr i or l_sc  ore 
ssndrol  1 

joining  c.scl_ssn  «  optional  pr 1  or l_s sn_no 
and  c.  scl_ssn  ■  optional  ssnd_ssn 

end 


read  into  b 
a 

hipri_title  hipri _pdip  hipri _pri  hipri_ok 

lrrdp_procfl  lrrdp_procf2  lrrdp_procf3  Irrdp_procf4  lrrdp_procf9 
lrrdp_procf6  lrrdp_procf7  lrrdp_procf8  !rrdp_procf9  lrrdp_procf 10 


I 

I 
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lrr d p _proc f 1 1  X rrdp _p roc f 12  lrr d p _pr oc f 13  lrrdp  jyroc f 14  lrrdp_pr oc f 1 5 
lrrdp  jrocf  16 

joining  a.  scl_un  «  optional  hipri_ssn 

and  h ipr i_sy s_id x  »  optional  lrrdp_sys_i d x 

end 

read  into  d 
p  c l_i d  x 

where  pcl_cat  =  "6.3"  and  pcl_subcat  O  "6.3" 
and  pcl_code  =  code  and  pcl_name  =  name 

end 


read  into  e 

wkp  kg_uikpsys_id  x  uikpkg_pdip 

uikpfr_f0  wkpfr_fl  wkpfr_f2  wkpfr_f3  uikpfr_f4  w  k  p  f  r  _f  5  wkpfr__f6  uikpfr_f7 
uikpfr_uO  wkpfr_ul  wkpfr_u2  uikpfr_u3  wkpfr_u4  wkpfr_u5  wkpfr_u6  wkpfr_u7 
joining  d.pcl_idx  =  uk p k g_pr o j_i d x 

and  ukpkg_no_idx  =  optional  uikpfr_wkpkg_idx 

end 


read  into  c 
b 


e 

joining 

and 


end 


b  id  jsn  =  optional  uniwkp_ssn 

un  iuik  p_wk  p  k  g_i  d  x  =  optional  e.  uik  p  k  g_wk  p  sy  s_i  d  x 


sort  by  ssn_com_line  s sn_ac y_c nd e  priorl_score  descending 
hipri_ok  descending  hipri _pri  scl_ssn  end 


format 

page  header 

let  cnt  *  O 

if  class  »  "U"  then  print  column  47.  '■**♦**  UNCLASSIFIED  ***** 
else  print  column  47, "***♦*  CONFIDENTIAL  ***♦*" 
skip  2  1 ines 
print  column  46; 

if  ssn_com_line  <>  "  "  then  print  ssn_com_line  clipped; 

els*  print  " _ "; 

print  "  PDIP  COMMODITY  SUMMARY  FOR  ".name  clipped; 
if  cont  =  1  then  print  "  (continued)"  else  print 
let  cont  =  0 
skip  2  lines 
let  head  »  1 

page  trailer 

print  "Legend : “ ; 

if  class  «  “U"  then  print  column  47. "♦****  UNCLASSIFIED  ***** 
els*  print  column  47. "***♦*  CONFIDENTIAL  «****" 
print  "***  -  Funded  Procurement". 3  spaces.""'  -  LRRDAP  Priority". 

column  100.  data. 2  spaces,  time 
print  "+++  -  Funded  RDTE" 

print  “ -  -  Unfunded  ROTE"; 

if  pl*tt*r«"Z"  then  print  column  60. pno 

els*  print  column  60. p letter. pno  using  "###" 
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l«t  pno  =»  pno  +  1 

before  group  of  ssn_com_lin* 
skip  to  top  of  page 
print  "Acquisition  Strategy: 
l*t  br«ak  =  110 

while  com_acq_stratCbreak,  break  30“  ”  do  let  break  =  break-1 
print  c om_ac q_s tra t C 1 ,  br eak 3 
let  obreak  =  break+1 
let  break  *  break+123 

while  com_ac  q_s  tra  t  Cbr  ea  k,  b  r  eak  30“  “  do  let  break  •  break-1 
print  7  spaces.  com_acq_stratCobreak,  break  3 
let  obreak  *  break+1 
let  break  »  break+123 

while  c  om_ac  q_s  tra  t  Cbr  ea  k  .  br  ea  k  30“  "  do  let  break  =  break-1 
print  7  spac es.  c om_ac q_s trat Cobreak ,  brea k 3 
let  obreak  =  break+1 
let  break  =  break+123 

while  com_acq_stratCbreak,  break  30"  "  do  let  break  =  break-1 

print  7  spac es.  c om_ac q_s tra t C ob r eak.  br ea k 3 

let  obreak  -  break+1 

let  break  =  break+123 

if  break>600  then  let  break  =  600 

while  c  oo_ac  q_s  tra  t  C  br  ea  k ,  b  r  ea  k  30"  "  do  let  break  *  break-1 
print  7  s pac es .  com_ac q_s tr a t Cobr ea k,  br ea k 3 
skip  1  1  ines 
let  ent  *  cnt+3 

after  group  of  ssn_com_line 
print  column  67, 


before  group  of  scl_ssn 
let  ent  »  cnt+1 
if  ent  >  22  then  begin 
let  cont  *  1 
print  column  67, 


skip  to  top  of  page 
let  ent  =  1 
end 

if  head  »  1  then  begin 

print  column  13, "SYSTEM  TITLES  AND  BDP  DEFICIENCIES", 
column  87,  "PROCUREMENT /RDTE  SCHEDULE" 
print  column  67. 


print  column  67, 

“!  PDIP  :  86  87  88  89  90  91  92  93  94  93  96  97  98  99  00  01IPRI/BDP! 
print  column  67. 


let  head  »  0 
end 

print  scl_ssn,2  spac es,  h ipr i_t i 1 1 eC 1 ,  433 .  1  space, 

ssn_da_ma,  "  /  " ,  ssn_tradoc_ma.  c o 1 umn  67,  " ! " ,  h i pr i _p d i p C 1 ,  43 ,  , 

hipri_pdipC3,  63,"!"i 

if  lrr dp _pr oc f 1>0  then  print  "***";  else  print  " 
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if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
i  f 


then 
th  en 
then 
then 
then 
then 
then 
then 


then 

then 

then 

then 

then 


print  ‘ 
print  1 
print  ' 
print  ' 
print  1 
print  ' 
print  ' 
print  ' 
print 
print 
print 
print 
pr  int 
print 
print 


***■' ; 
***  " ; 
***“; 
***“; 
***•' ; 
***■'; 

***"; 

"***'■ 

••***•' 

"***“ 

”***“ 

••***•• 

"*■**'• 


else 

els* 

els* 

else 

else 

else 

else 

else 

else 

else 

else 

els* 

else 

else 

else 


lrrdp_proc  f2>0 
lrrdp_proc  f 3>0 
lrrdp_proc  f4>0 
lrrdp _proc  f 5>0 
lrr dp_pr oc  f 6>0 
lrrdp_proc  f 7>0 
lrrdp _proc  f 8>0 
lrrdp _proc  f9>0 
lrrdp_procf 10>0  then 
lrrdp_procfll>0  then 
lrrdp_procf 12>0 
lrrdp  _procf 13>0 
lrrdp  _procf 14>0 
lrrdp_procfl 3>0 
lrrdp_procf 16>0 
s  s  n  _a  c  g_c  o  d  e  <  3  then  begin 
if  class  =  “C"  then 

print  column  124.  .  h  ipr  1  _pr  i  using 

else  print  column  124.  column  132.''.'“ 
end 

else  print  column  124.  " ! “ . p r i or  1 _s c or e  using 
print  8  spaces,  ssn _a me _mgrCl,  71; 
if  ssnd_d*fl>0  then  begin 

print  ssnd_defl  using  "  ####"; 
if  ssnd_conlO"  “  then  print 
if  ssnd_def2>0  then  begin 

print  ssnd_def2  using  "  ####"! 
if  ssnd_con20"  "  then  print 
if  ssnd_def3>0  then  begin 

print  ssnd_def3  using  "  ####“; 
if  ssnd_con30“  "  then  print 
if  ssnd_def4>0  then  begin 

print  ssnd_def4  using  "  ####“! 
if  ssnd_con40"  "  then  print 
if  ssnd_def5>0  then  begin 

print  ssnd_def3  using  “  ####'■; 
if  ssnd_con5<>“  "  then  print 
if  ssnd_d*f6>0  then  begin 
print  ssnd_d*f6  using  " 
if  ssnd_con6<>"  "  then  print 
if  ssnd_def7>0  then  begin 

print  ssnd_def7  using  "  ###•"; 
if  ssnd_con70”  "  then  print 
print  column  67.  '* !  ”.  c  o  lumn  73."!'* 


print  “ 
print  " 
print  “ 
print  " 
print  11 
print  " 
print  " 
print  “ 
print 
print 
print 
print 
print 
print 
print 


“»#*#» 


column  132. 


#*»#» 


column  132. 


ssnd 

_c  on  1 ; 

else 

print  " 

"i  end 

ssnd 

_con2; 

else 

print  " 

"  i  end 

ssnd 

_con3i 

else 

print  " 

“i  end 

ssnd 

_con4; 

else 

print  " 

end 

ssnd 

_c  on5i 

else 

print  " 

'' i  end 

ssnd 

_c  on6; 

else 

print  *' 

”i  end 

ssnd 

_con7; 

else 

print  " 

end 

after  group  of  scl_ssn 

if  group  total  of  u/kpfr_fO  >  0  then  begin 


if 

group 

tota  1 

of 

uk  p  f r_uO 

> 

0 

then 

print 

else 

print  "+++“; 

end 

els* 

begin 

if 

group 

total 

of 

uik  p  f  r  _uO 

> 

0 

then 

print  " - “i 

else 

print  "  "i 

end 

if  group 

'tal  of 

wkpfr_fl  > 

0 

then  begin 

if 

group 

total 

of 

ie  k  p  f  r  _u  1 

> 

0 

then 

print 

else 

print  "+++“; 

end 

else 

beg  in 

if 

group 

tota  1 

of 

uikp  f  r_ul 

> 

0 

then 

print  " - 

else 

print  "  “ i 

end 

if  group  total  of 

wkpfr_f2  > 

0 

then  begin 

if 

group 

total 

of 

ink  p  f  r_u2 

> 

0 

then 

print 

else 

print  ”+++"; 

end 

$ 


t 

i 

i 

I 

I 

I 

i 

H 

I 

I 
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else  begin 


i  f 

group 

total 

of  u/kpfr_u2 

> 

0 

then  print 

" - " ; 

else 

print 

••  ..  . 

end 

if  group  total  of 

ukpfr_f3  > 

0 

then  begin 

if 

group 

total 

of  wkpfr_u3 

> 

0 

then  print 

. 

else 

print 

"  +  +  -*.“  ; 

end 

els* 

begin 

if 

group 

tota  1 

of  u/kpfr_u3 

> 

0 

then  print 

" - » . 

else 

print 

M  "  i 

end 

if  group  total  of 

ui  k  p  f  r  _f  4  > 

0 

then  begin 

if 

group 

total 

of  uikpfr_u4 

> 

0 

then  print 

els* 

print 

end 

else 

beg  in 

if 

group 

total 

of  wkpfr_u4 

> 

0 

then  print 

" - 

else 

print 

.1  >1 . 

end 

if  group  total  of 

wkpfr_f3  > 

0 

then  begin 

if 

group 

total 

of  iukpfr_u3 

> 

0 

then  print 

; 

else 

print 

i 

end 

else 

begin 

if 

group 

total 

of  u/kpfr_u3 

> 

0 

then  print 

" - " ; 

else 

print 

"  " ; 

end 

if  group  total  of 

w  k  p  f  r  _f  6  > 

0 

then  begin 

if 

group 

total 

of  iekpfr_u6 

> 

0 

then  print 

else 

print 

end 

else 

begin 

if 

group 

total 

of  iukpfr_u6 

> 

0 

then  print 

" - ; 

else 

pr  int 

"  <i  . 

end 

if  group  total  of 

uikpfr_f7  > 

0 

then  beg  in 

if 

group 

tota  1 

of  ipkpfr_u7 

> 

0 

then  pr int 

else 

print 

end 

else 

begin 

if 

group 

total 

of  u/ k  p  f  r _u 7 

> 

0 

then  pr int 

" - " ; 

else 

print 

n  ii  . 

end 

print  column  124, column  132, 

before  group  of  s  sn_ac  q._c  od  e 
if  cnt  >  19  then  begin 
let  cont  =  1 
print  column  67, 


skip  to  top  of  page 
end 

if  head  «  1  then  begin 

print  column  13, "SYSTEM  TITLES  AND  8 DP  DEFIC IENC IES ", 
column  87,  "PROCUREMENT /ROTE  SCHEDULE" 
print  column  67, 


print  column  67, 

" i  PDIP  I  86  87  88  89  90  91  92  93  94  93  96  97  98  99  00  OliPRI/BDPi 
print  column  67, 


let 

head  3 

0 

end 

print 

col umn 

67, 

" ! " , col umn 

75,  " : ", 

col  umn 

124, 

"!", col umn 

132,  "  !  " 

print 

9  spaces," 

**♦#*  "#acq_typt 

clipped 

,  •' 

****♦" , 

col umn 

67, 

" ! " »  col umn 

73,  "  !  ", 

col  umn 

124, 

" ! " ,  c  o i umn 

132,  "  !  " 

print 

col umn 

67, 

'*  !  "  •  col  umn 

73, 

column 

124, 

" ! " , col umn 

132,  “  !  " 

let  cnt  »  cnt +2 
after  group  of  ssn_ac^_code 

print  column  67,  “  ",  co  lumn  73,  "  i  ",  c  o  1  umn  124,  "  ;  ”,  col  umn  132,"! 


end 


I 

I 

I 

I 

I 
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{  6/17/86.  PDIP  report.  Links  unique  workpackages  to  systems  that  are 
sorted  by  bdp  priority. 

7/10/86.  changed  name  to  pdipcomda. 

7/11/86  added  c las s i f i ca t i on  parameter. 

7/15/86.  changed  report  header  to  new  name.  > 

database  mamp  end 


def ine 


variab le 

lent 

type 

integer 

var iab 1 e 

ent 

type 

integer 

variab 1 e 

head 

type 

integer 

variab le 

cont 

type 

integer 

van iab  1  e 

break 

type 

integer 

var iab 1 e 

obreak 

type 

integer 

var iab  1  e 

pno 

type 

integer 

var iab 1 e 

tot 

type 

f  loat 

var iab 1 e 

pf  1 

type 

1  ong 

var i ab 1 e 

pf2 

type 

long 

var iab le 

p  f  3 

type 

long 

var iab  1  e 

p  f  4 

type 

long 

var iab  1  e 

pf  5 

type 

long 

var iab  le 

p  f  6 

type 

long 

var iab 1 e 

P  f  7 

type 

long 

var  iab le 

rf  1 

type 

long 

var iab  le 

r  f  2 

type 

long 

variab  1  e 

r  f  3 

type 

long 

variab  1  e 

r  f  4 

type 

long 

var iab  1  e 

rf  5 

type 

long 

variab  1  e 

r  f  6 

type 

long 

variable 

r  f  7 

type 

long 

paramC 1 1 

p 1 e 1 1 er 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

paramC4] 

c  lass 

type 

character 

length 

1 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "pd ipcomda. out" 
end 

read  into  b 
s  c  1  _s  s  n 

where  scl_name  *  name  and  sel_cod*  ■  code 
end 

read  into  a 


i 

i 

i 
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& 

ssn_amc_mgr  s  sn_a c  g,_c  od  e  ssn_com_line  s s n_tr ad oc _ma  ssn_da_ma 

com_acq._strat 

be  tc  =*  1 

where  s sn_ac n_c od e  <  3 

joining  b.scl_ssn  =  optional  ssn_ssn 

and  ssn_com_Iine  ”  optional  com_com_line 

end 

read  into  d 
b 

ssn_amc_mgr  s sn_ac n_cod e  ssn_com_line  s s n_tr ad oc _ma  ssn_da_ma 
c  om_ac  n_s tra t 
be tc  »  O 

where  s sn_ac q_c od e  >  2 

joining  b.  scl_ssn  =  optional  ssn_ssn 

and  ssn_com_line  »  optional  com_com_line 

end 

assign  c  =  a  union  d  end 

read  into  a 
c 

ssndrol 1 
priorl_score 

joining  c  .  s  c  1  _s  s  n  =  optional  priori _ssn _n  o 
and  c  .  s  c  1  _s  s  n  =  optional  ssnd_ssn 

end 

read  into  b 

a 

hipri_title  hipri_pdip  hipri_pri  hipri_ok 
lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf5 
Irrdp_procP6  Irrdp_procf7  Irrdp_procfS 
joining  a.  scl_ssn  «  optional  hipri_ssn 

and  h ipr i_sys_id x  =  optional  lrrdp_sgs_id x 

end 

read  into  d 
p  c 1 _i d  x 

where  pcl_code  =  code  and  pcl_name  «=  name  and  pcl_cat  =  "6.3" 
and  pcl_subcat  O  "6.5" 

end 

read  into  e 
d 

ll,kpkg_wkpsijs_idx  wkpkg_.pdip  wkpkg_title 

u/kpfr_fO  wkpfr_ft  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f5  wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr— u4  wkpfr_u5  wkpfr— u6  wkpfr_u7 

joining  d  pcl_idx  »  wkp kg_pro j _ i d x 

and  wkpkg_no_idx  *  optional  wk p f r_wk p k g_i d x 

end 

read  into  c 
b 

e 
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uniuikp_srr 

joining  b  scl_ssn  *  optional  unitukp_ssn 

and  un  iutk  p_u/kp  k  g_i  d  x  =  optional  s.  uik  p  k  g_uikp  sy  s_i  d  x 

end 

sort  by  ssn_com_line 

bctc  descending 
priori _s core  descending 
hipri_ok  descending 
hipri _pri 
s  c  1  _s  s  n 
w(‘Pk9_proj 

u  k  p  k  g  _n  o 
end 

format 
page  header 

if  class  =  "U"  then  print  column  47, "*«***  UNCLASS  I  F  I 
else  print  column  47,  "•»****  CONFIDENTIAL  ■»****" 
skip  2  1 ines 
print  column  44; 

if  ssn_com^line  O  "  "  then  print  ssn_com_line  clipped; 

else  print  " _ " ; 

print  "  PD  IP  COMMODITY  DECISION  Arr  pqr  -.name  clipped 

print  column  48. "WITH  CUMULATIVE  TOTALS  ( RTDE/PROC ) " ; 

if  cont  =  l  then  print  "  (continued)"  else  print  "" 

let  cont  =  O 

skip  2  lines 

let  head  *  1 

let  lent  ”  0 

page  trailer 

print  “Legend :  "; 

if  class  *  “U"  then  print  column  47,  "**•*■**  UNCLASSIFI 

else  print  column  47,  "*#■***  CONFIDENTIAL  ***«•*" 

print  -  LRRDAP  Pr  i  or  i  ty  “ ,  c  o  1  umn  100,  date.  2  spaces,  time 

print  "+  -  BDP  Rating  Score"; 

if  pletter=“Z"  then  print  column  60,pno 

else  print  column  60, p 1 e t ter . pno  using  "###" 

let  pno  ®  pno+1 

before  group  of  ssn_com_line 


let 

pf  l 

33 

0 

let 

pf2 

SB 

0 

let 

p  f  3 

as 

0 

let 

p  f  4 

as 

0 

let 

p  f  3 

as 

0 

let 

pf  6 

33 

0 

let 

P  f  7 

S3 

0 

let 

rf  1 

X 

0 

let 

rf2 

s 

0 

let 

r  f  3 

33 

0 

let 

r  f  4 

as 

0 

let 

rf  3 

33 

0 

let 

r  f  6 

33 

0 

E  D  +****" 


E  D  ***■»*" 
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let  rf7  =  0 

skip  to  top  of  page 

print  "Acquisition  Strategy: 

let  break  =  110 

u/hile  com_acq._stratCbreak,  breaklO"  “  do  let 
print  com_acq._stratC  1,  break  3 
let  obreak  =  break+1 
let  break  »  break+123 

while  com_ac  q_s  tra  t  Cbr  eak.  br  ea  k  30”  "  do  let 
print  7  spac  es ,  c  om_ac  q._s  trat  Cobr  ea  k ,  br  ea  k  3 
let  obreak  *  break+1 
let  break  »  break+123 

while  com_acq_stratCbreak,  break  30"  “  do  let 
print  7  spaces,  eom_acq_s trat Cobreak,  brea k 3 
let  obreak  =*  break+1 
let  break  =  break+125 

while  c  om_ac  q._s  tra t  C  br  ea  k ,  b  reak  30  ”  "  do  let 

print  7  spaces,  com_acq_stratCobreak,  break  3 

let  obreak  =  break+1 

let  break  -  break+125 

if  break>600  then  let  break  =  600 

while  e  om_ae  q_stratC  br  eak.  break  30"  "  do  let 

print  7  s  pac  e  s ,  c  am_ac  q,_s  t  r  a  t  C  ob  r  ea  k  ,  br  ea  k  3 

skip  1  1  ines 

let  lent  =  lent  +  7 


break  »  break-1 


break  =*  break-1 


break  *  break-1 


break  =  break-1 


break  =  break-1 


after  group  of  ssn_cam_line 

print  "I  ".column  9.  "(".column  71,"!",  col  umn  79,  "  ,'  ",  column  132,  "  ! 
print  "  - - - - 


before  group  of  scl_ssn 
let  ent  *  0 

if  lent  >  42  then  begin 
let  cont  =  1 

print  "’".column  9."!  ".column  71,  "!", column  79,  ” ! ” , c o 1 umn  132,  “ ( 
print  "  - - - - - 


skip  to  top  of  page 
end 

if  head  «  1  then  begin 
print  “ - - 


print  ”1  SSN  (”,6  spa c es.  "TITLE” ,  c o 1 umn  S3,  "DA/TDC  MA", 
column  71. " !  PDIP  ( ", 

"  87  88  89  90  91  92  93  I” 

print  ”  i - ( - - - 

II  _  .  . J _ - _ _ ■_ _ - _ _ _  _ _  .  _ _ _ _ 

let  lent  =*  lent  +  3 
let  head  »  0 
end 

print  "! ”,  column  9."!", column  71.  column  79,  " i ” , c o 1 umn  132,”!" 
print  "!  ",  sc  l_ssn,  column  9,  1  spac  es,  h  ipr  i_t  i  1 1  eC  1 .  403 ,  6  space. 

ssn_da_ma,  "  /  ”,  ssn_trad oc_ma,  c o lumn  71 ,  " ! " ,  h ipr i_p d i p C 1 . 43 ,  " 
h ipr i_pd ip C3.  63. "!",  column  81; 
let  pfl  =  pfl  +  lrrdp_procf2 
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let  p f 2  »  pf2  +  lrrdp_procf3 
l*t  p  f  3  =  p  f  3  +•  lrrdp_procf4 
l*t  p  f  4  »  p  f  4  +  lrrdp_procf5 
l«t  pfS  »  p  f  5  +  lrrdp_procf6 
l*t  pf6  =  p  f  6  +  lrrdp_procf7 
let  pf7  »  p  f  7  +  lrrdp_procf8 

l*t  tot  «  lrrdp_procf2  +  lrrdp_procf3  +  lrrdp_procf4  +  lrrdp_procf5  + 
lrrdp_procf6  +  lrrdp_procf7  +  lrrdp_procf8 
if  tot  »  0  th*n  print  column  90. “ ( Pr oc ur *m*nt  Funds  Not  Scheduled)"; 
else  begin 


if  lrrdp_procf2>0 

then 

print 

lrr dp_procf2 

using 

" ****** 

**  ; 

else  print  “ 
if  Ir r dp _p r oc f 3}0 

then 

print 

Irrdp_procf3 

using 

••###### 

else  print  " 
if  1 r r dp_pr oc f 4>0 

then 

pr  int 

lrr dp_procf 4 

using 

••*****# 

else  print  " 
if  lrr dp _pr oc f 5>0 

then 

print 

lrr dp_procf 5 

using 

"****** 

II  . 

els*  print  " 
if  lr r dp _pr oc f 6>0 

then 

print 

lrrdp_procf6 

us  ing 

••*****# 

else  print  " 
if  lrrdp_procf 7>0 

then 

print 

lrr  d  p  _pr  oc  f 7 

using 

••****** 

"; 

else  print  “ 
if  lr  r  dp_pr  oc  f  81>0 

then 

print 

lrrdp_procf8 

us  ing 

else  print  " 

end 

print  column  132.“.'“ 
if  bctc  =  1  then  begin 

if  class  *  "C"  then  print  "!~",hipri _pri  using  “***** 
else  print  "!  “ ; 

end 

else  print  " !  +  ".  pr ior l_score  using  “##### 


if 

s  snd 

def  1>0 

then 

print 

ssnd 

def  1 

using 

••  ####", 

ssnd_conI; 

if 

ssnd 

def 2>0 

then 

print 

ssnd 

def  2 

using 

"  ****". 

ssnd_con2; 

if 

ssnd 

def3>0 

then 

print 

ssnd 

def  3 

using 

"  ####". 

ssnd_con3; 

if 

ssnd 

d  e  f 4>0 

then 

print 

ssnd 

def  4 

using 

"  ####". 

SSnd_Con4; 

if 

ssnd 

def 5>0 

then 

print 

ssnd 

_def  5 

using 

“  ####". 

ssnd_con3; 

if 

ssnd 

def6>0 

then 

print 

ssnd 

d  ef  6 

using 

"  ****", 

ssnd_con6; 

if 

ssnd 

def 7>0 

then 

pr  int 

ssnd 

d  ef  7 

using 

"  ****", 

ssnd_con7; 

print  column  71 .  ” ! eo lumn  79.  “  J  ".  c o lumn  132.  " I " 
let  lent  =  lent  +  3 

before  group  of  iukpkg_no 

if  uikpkg_pe  O  ”  "  then  begin 
if  lent  >  45  then  begin 
let  cont  =  1 

print  “'".column  9, " ! column  71. "i". column  79. " ! " . co 1 umn  132."!" 
print  " - - - 


skip  to  top  of  page 
end 

if  head  =  1  then  begin 
print  ”  - 


print  "!  SSN  i".6  spaces. "TITLE". c o 1 umn  58. "DA/TDC  MA", 
column  71.  "I  PDIP  l ", 

'•  87  88  89  90  91  92  93  ! 
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print 


lat  lent  *  lent  +  3 
let  head  »  0 
end 

let  ent  =*  ent  +  1 
let  r  f  1  =  r  f  1  +  u  k  p  f  r  _f  1 
let  rf2  ■  rf2  +  ukpfr_f2 
let  rf3  *=  rf3  +  ukpfr_f3 
let  rf4  =  rf4  +  ukpfr_f4 
let  rf3  =  rf3  +  ukpfr_f3 
let  rf6  “  rf6  +  ukpfr_f6 
let  rf7  =  rf7  +  ukpfr_f7 

print  "'".column  9.'*:“.1  spaces,  ent.  2  spaces,  ukp  kg_pe. 

2  spaces,  wkp  kg_proj.  2  spac  es.  uikp  k  g_tas  k  clipped.  2  spaces, 
wkpkg^o  clipped. 2  spaces.  ukpkg_cmd  clipped."  Crit:", 
uniukp_srf  using  "  ##“,  column  71. “!“. column  79,"! 


if 

uik  p  f  r  _f  1  >0 

then 

print 

u»k  p  f  f  1 

using  “######  " 

else 

print  " 

if 

ukpfr_f2>0 

then 

print 

uk  p f r _f 2 

using  "#*«««#  " 

else 

print  " 

if 

<i)kpfr_f3>0 

then 

print 

wkpf r_f3 

using  “###**#  " 

else 

print  " 

if 

ukpfr_f4>0 

then 

print 

wkpfr_f 4 

using 

“######  “ 

else 

print  " 

i  f 

ukp  f r_f 3>0 

then 

print 

ukp  f r_f 3 

using 

"######  " 

else 

print  " 

if 

ukp  f r _f 6>0 

then 

print 

u  k  p  f  r  — f  6 

using  "######  " 

else 

print  " 

if 

uk  p  f r_f 7>0 

then 

print 

u  k  p  f  r_f  7 

using  "•»*»«#  " 

else 

print  " 

print  column  132."!" 

print  " ! ",  column  9,"!",  10  spac e s .  uk p k g _t i 1 1 e C 1 .  50 3  .  c o 1 umn  71, 


wkpkg_pdipCl,41,  “-",ukpkg_pdipC3,61,  "!  "; 


if 

ukpfr_ul>0 

then 

print  -ukpfr_ul 

using 

"  (  (  (  t  C  t*  )  " 

else 

print 

if 

ukpf r_u2>0 

then 

print  -ukpfr_u2 

using 

“((<<(#)“ 

else 

print 

if 

uk  p  f r _u3>0 

then 

print  -ukpfr_u3 

using 

“(((((#)" 

else 

print 

if 

uk  p  f r_u4>0 

then 

print  -ukpfr_u4 

using 

"(((<(#>" 

else 

print 

if 

ukp  f r_u3>0 

then 

print  -ukpfr_u3 

using 

else 

print 

if 

ukp  f r_u6>0 

then 

print  -ukpfr_u6 

using 

"(((((#)" 

else 

print 

if 

uk  p  f r _u7>0 

then 

print  -ukpfr_u7 

using 

"(((((#)" 

else 

print 

print  column  132,“!" 
let  lent  =  lent  +  2 
end 

after  group  of  scl_ssn 
if  lent  >  44  then  begin 
let  cont  »  1 

print  "!". column  9, "i", column  71 ,  " i " , c o  1  umn  79,  " ! ",  column  132, 
print  “  - - 


skip  to  top  of  page 
end 

if  head  »  1  then  begin 
print  “  - 


print  “  !  SSN  !'\6  spac  es .  "TITLE”,  c  o  1  umn  38,  “DA/TDC  MA", 
column  71,  " !  POIP  !  ", 

"  87  88  89  90  91  92  93  ! 

print  "! - ! - 


let  lent  “  lent  +  3 
let  head  *  0 


I  IS 
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end 

print  " ! ”,  column  9,  "i”.  column  71,  “ ! column  79,  “ 1 “ ,  c o 1 umn  132, 
print  "I", column  9,“!", 21  space*. "Cumulative  Totals: 

column  50,  "Procurement  Funded:  ".column  71 ,  " ! " ,  c o 1 umn  79," 
pfl  using  "###«##  ",pf2  using  “######  ", p  f 3  using  "###### 

pf4  using  “######  ",pf5  using  "######  pf6  using  "###### 

pf7  using  “######  ".column  132."!“ 
print  "'".column  9,"! ".column  57.  “RDTE  Funded:  ".column  71,  "i" 
co  lumn  79,  "  J  ", 

rfl  using  "######  ",rf2  using  "######  ", rf3  using  "###### 

r  f  4  using  "######  ",rf5  using  "######  ",  rf6  using  "###### 

r  f  7  using  "######  “.column  132. "I" 
let  lent  =  lent  +  3 
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<  Pdip  to  system  cross  reference  report.  Moved  to  the  mamp  database  on  3/2/86. 
6/11/S6  changed  header  info  somewhat. 

6/13/86  revised  pdip  format,  added  titles  and  priorities.  > 
database  mamp  end 
define 


paramC 1 3 

p letter 

type 

character 

length  1 

paramC23 

code 

type 

integer 

paramC33 

name 

type 

c  harac  ter 

length  12 

var iab le 

pno 

type 

integer 

var  iab  1  e 

St 

type 

integer 

var iab  1  e 

1 1 

type 

integer 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  mar g in  132 
report  to  "pdipsys. out" 
end 

read  into  a 
s  c  1 _s  s  n 

uihere  scl_code  *  code  and  scl_name  »  name 
end 

read  into  b 
a 

ssn_amc_mgr  ssn_da_ma  ssn_tradoc_ma  ssn_tradoc_pr o 
lrrdp_title  lrrdp_pdip 
joining  a.  scl_ssn  *  optional  ssn_ssn 
and  a.  scl_ssn  **  optional  lrrdp_ssn 

end 

read  into  c 
t 

lrrdppri _pri 

lrr d p pr i _t i t 1 e  lrrdppr i_tradoc_pro  1 rr dp pr i_trad oc _ma  lrr d p pr i_da_ma 
joining  b. lrrdp_pdip  ■  optional  lrrdppr i_pd ip 
end 

sort  by  lr r dp_p d i p C 1 .  43  lr rd p_p d ip C 3.  63  scl_ssn  end 
format 

before  group  of  lr r d p_p d i p C 1 .  43 
if  11<3  then  skip  to  top  of  page 
skip  2  1 ines 

if  lr rd p_p d ip C 1 ,  4 3»"  ”  then  print  " _ 

else  print  lrrdp_p d i p C 1 . 43 ; 

if  lrrdppr i_da_ma«"  "  then  print  32  spaces," _ _“i 

else  print  32  spaces, lrr dp pr i_da_mai 
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if  1 r r d p p r i _t rad oc _ma="  “  then  print  3  space*.  ” _ 

i.ii  print  3  spac es.  lrr dp pr i_trad oc  _ma; 

if  lrrdppr i_tradoc _pra="  “  then  print  3  spaces." _ 

else  print  3  spaces,  lr  r  d  p  p  r  i_tr  ad  oc  _pro; 

if  lrr  d  p  p  r  i_t  i  t  le  =  "  “  then  print  9  s  n  a  c  e  s .  "  " 

else  print  9  spaces. lrrdppri_title 
let  11  »  11-3 

before  group  of  lTr dp _p d  i  p  C3,  61 
if  11 <2  then  skip  to  top  of  page 

if  lr  r  dp_p  d  i  p  C5,  61  =  “  “  then  print  8  spaces." _ 

else  print  8  spac  es.  lrrdp_p  d  ip  C5.  61; 

if  lrrdppri_pri  =0.0  then  print  4  spaces.  "Not  Available" 
else  print  4  spac  es.  lr  rd  p  pr  i_p  r  i  using  "#####.##" 
let  11  =  11-1 

before  group  of  scl_ssn 

print  26  s  pac  e  s.  sc  l_s  sn.  4  spa  c  es.  s  sn_da_ma,  3  spac  es.  ssn_tradoc_ma.  " 
ssn_tradoc_pro.  4  spac e s.  lrr dp_t  i  1 1  e [  1 ,  301 .  4  spaces,  ssn_amc_mgr 
let  11  =  11-1 

page  header 

print  column  47,  "•»*****  CONFIDENTIAL  ******" 
skip  2  lines 

print  column  49.  "PDIP  TO  ".name  clipped,"  SYSTEM  CROSS  REFERENCE" 
skip  2  1 ines 

print  "PDIP".  3  spaces.  "  INCR",  3  spaces,  "PRIORITY",  5  spaces, 

“SSN",  3  spaces.  "DA  MA".3  spaces."TDC  MA/PR0P".16  spaces, 
"PDIP/SYSTEM  TITLE",  24  spac es,  "COMMAND" ,  11  spaces 
skip  1  line 
let  11  =  47 
let  st  =  1 

page  trailer 
skip  2  lines 

print  column  47, ”******  CONFIDENTIAL  **■»***" 

print  column  100.  date.  2  spaces,  time 

if  pletter="Z"  then  print  60  spaces. pno 

else  print  60  spaces, p 1 etter. pno  using  "###” 

let  pno  =  pno+1 

end 
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<  POM  89  REPORT  OF  PDIPS  WITH  CUMULATIVE  RDTE  FUNDING  SHOWN 


6/23/86. 

6/24/86 

7/10/86 

7/15/86. 


taken  Prom  laura's  pdipwkp  report.  This  differs  in  that  it  works 
with  the  projected  pom89  pdip  alignments  and  priorities, 
changed  pom  89  pdip  structure.  added  pdip  parameter 
changed  the  pom89ssn  Pile  structure, 
changed  uniwkp_uic  to  uniwkp_srf.  > 


database  mamp  end 


dePine 


var iab 1 e 

lent 

type 

integer 

var iab  1  e 

ent 

type 

integer 

var iab  1  e 

head 

type 

integer 

var iab  1  e 

cont 

type 

integer 

var iab  1  e 

break 

type 

integer 

var iab  le 

obr eak 

type 

integer 

var iab 1 e 

pno 

type 

integer 

var iab  1  e 

tot 

type 

float 

var i ab  1  e 

pf  1 

type 

long 

var iab  1  e 

pP2 

type 

long 

variable 

pP3 

type 

long 

var iab  1  e 

pP4 

type 

long 

var iab  1  e 

pP5 

type 

long 

var iab  1  e 

pP6 

type 

long 

var lab  1  e 

pP7 

type 

I  ong 

var iab 1 e 

r  P  1 

type 

long 

var iab 1 e 

r  P2 

type 

long 

var iab  1  e 

rP3 

type 

long 

variable 

rP4 

type 

long 

var iab  le 

rP5 

type 

long 

var  iab  1  e 

r  P6 

type 

long 

var iab  1  e 

rP7 

type 

long 

paramC 1 1 

p 1 e 1 1 er 

type 

character 

length 

1 

paramC2 1 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

paramCPl 

end 

pdip 

type 

character 

length 

6 

input 

prompt  Por  pno  using  "Please  enter  the  starting  page  number  > 
end 


output 

lePt  margin  0 
right  margin  132 
report  to  "pom89cum. out 
end 


read  into  b 
sc l_ssn 

pomB9ssn_sys_id  t  pom89ssn_seq,  p  om89ssn_p  d  i  p 

where  scl_nam*  •  name  and  scl_code  *  code  and  pom89s sn_p d i p  matches  p dip 


I 
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joining  scl_ssn  =  pom89ssn_ssn 
end 

read  into  a 
b 

un_aec_mgr  s  sn_acq,_c  od  e  ss  n_tr  ad  oc  _ma  ssn_da_ma 
ssndroll 

joining  b.scl_ssn  *  ssn_ssn 
and  b.  scl_ssn  =  s  s  n  d  _s  s  n 

end 

read  into  b 
a 

p  om89 

lrrdp_title  lrrdp_procf2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf3 
lrrdp jirocfb  lrrdp_procf7  lrrdp_procf8 
joining  a.  p om89s snjj d i p  =  optional  pom89 _pdip 

and  a.  p om89s sn_sy s_i d x  =  optional  Irr d p_sy s_i d x 

end 

read  into  d 
p c l_i d  x 

where  pcl_cade  =  code  and  pcl_name  =  name  and  pcl_cat  =  ''6.3" 
and  pcl_subcat  O  "6.  5” 

end 

read  into  e 
d 

u/kpkg_uikpsys_idx  wkpkg_title 

<ukpfr_fO  uikpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f3  mkpfr_f6  uikpfr_f7 
wkpfr_oO  wkpfr_ul  uikpfr_u2  uikpfr_u3  u»kpfr_u4  iukpfr_u5  uikpfr_u6  uikpfr_u7 
joining  d.pcl_idx  ■  uik  p  kg_pr  o  j_i  d  x 

and  'ukpkg_no_idx  *  optional  uikp  f  r_ukp  kg_i  d  x 

end 

read  into  c 
b 
e 

uniwkp_srf  uniui<p_seg  un  iuik  p _p  om89 

joining  b.  pom89ssn_sys_id x  «  optional  uniwkp_sys_id  x 

and  un  iuik  p  _uifcp  k  g_i  d  x  *  optional  e.  <ek  p  k  g_wkp  sy  s_i  d  x 

end 

sort  by  pom89ssn_pd ip 
pom89ssn_seg 
sc l_ssn 
uniukp_seq. 
tu  k  p  k  g  _n  o 
end 

format 
page  header 

print  column  47,  ”***■»*  CONFIDENTIAL  **•»**" 
skip  2  lines 

print  column  49,  p om89_t i 1 1 e> 
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print  4  spaces.  "(  ",  pom89ssn_pd  ipCl.  43  .  pom89ssn_p  d  ip  C5,  63.  "  )  " 

print  column  47,  “POM  89  PD IP- INCREMENT  BREAKOUT  FOR  “.name  clipped 

print  column  49.  “WITH  CUMULATIVE  TOTALS  ( RTDE/PROC ) “ ; 

if  cont  =  1  then  print  "  (continued)"  else  print 

let  cont  =  0 

skip  2  lines 

let  head  =  1 

let  lent  =  0 

page  trailer 

print  column  47,  “*+***  CONFIDENTIAL  **•**•»" 

print  column  100,  date,  2  spaces,  time 

if  pletter=“Z"  then  print  column  60, pno 

else  print  column  60, p 1 e t ter, , pno 

using  "*#*"  let  pno  *  pno+1 

before  group  of  pomS9ssn_pd i p 
let  pfl  =  0 
let  p  f 2  =  0 
let  p  f 3  =  0 
let  p  f  4  =  0 
let  p  f  3  =  0 
let  p  f 6  =  0 
let  p  f 7  =  0 
let  rfl  =  0 
let  r f 2  =  O 
let  r f 3  =  0 
let  rf 4  =  0 
let  r f 3  =  O 
let  r f 6  =  O 
let  r f 7  -  0 
skip  to  top  of  page 
print  “Acquisition  Strategy. 
let  break  *  110 

while  p  om89_s  tra  t  Cbr  ea  k  .  br  ea  k  30“  “  do  let  break  =  break-1 
print  pom89_s trat C 1 ,  br eak 3 
let  obreak  =»  break+1 
let  break  »  break+123 

while  p  om99_s  tra  t  C  br  ea  k  ,  b  r  ea  k  30"  “  do  let  break  =  break-1 
print  7  spac es.  pom89_s tra t C ob r eak , br ea k 3 
let  obreak  «  break+1 
let  break  “  break+123 

while  pom89_s  t  ra  tCb  r»a  k  .  b  r  ea  k  30"  “  do  let  break  =  break-1 
print  7  spac es.  p om89_s t ra t C ob rea k ,  br ea k 3 
let  obreak  *  break+1 
let  break  »  break+123 

while  p  om89_s  tra  t  C  b  rea  k  .  b  rea  k  30"  "  do  let  break  =  break-1 

print  7  spaces.  pom89_stratCobreak,  break  3 

let  obreak  «  break+1 

let  break  ■  break+123 

if  break>600  then  let  break  »  600 

while  p  om89_*  tr*  t  C  b  r  ea  k  ,  b  r  ea  k  30"  "  do  let  break  ■  break-1 

print  7  s p ac es .  p om89_s t r a t C o b r ea k  ,  b r ea k 3 

skip  1  1  ints 

let  lent  »  lent  +  7 
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after  group  of  p om89s sn_p d i p 

print  "  !  .  col  umn  9,  '*  I  " .  col  umn  71 ,  "  !  “#  col  umn  79  •  "!  "<  col  umn  1 32 »  "  ! 

print  " - - - - - - - 

_  _ _ _  _  _  _  _____  _______  _  _  _  _  _ _ _  _ 


before  group  of  scl_ssn 
let  cnt  *  0 

if  lent  >  42  then  begin 
let  cont  =*  1 

print  "  [  •' , col umn  9,  "[".column  71.“!" .col  umn  79.  "[“.column  1 32.  " ! 
print  "  - - 


skip  to  tap  of  page 
end 

if  head  -  1  then  begin 
print  “  - 


print  " !  SSN  !  " ,  6  spaces.  "TI TLE ".column  3S.“ DA / T DC  MA ” , 
column  71."!  PDIP  I". 

”  87  88  89  90  91  92  93  ! 

print  "! - [ - - 


let  lent  =  lent  *  3 
let  head  =  O 
end 

print  "[".column  9."!“.  column  71,  “ ! “. column  79.  ”1  ”,  column  132.“!" 
print  "!  ",scl_ssn,  column  9,  “ ! " .  1  spaces,  lrrdp_titletl.  403. 6  space. 

ssn_da_ma.  "  /  ",  ssn_tradoc_ma.  column  71 ,  " ! p om89s sn_p d i p 1 1 ,  43. 
p  om89ssn_p  d ipC3. 63,  "[".column  81; 
let  pfl  *  pfl  *  lrrdp_procf2 
let  pf2  «  p f 2  +  lrrdp_procf3 
let  pf3  ”  p f 3  +  lrrdp_procf4 
let  p  f 4  »  p  f 4  ♦  lrrdp_procf3 
let  pf3  *  pf3  +  lrrdp_procf6 
let  p  f 6  =  p  f 6  +  lrrdp_procf7 
let  p  f 7  =  p  f 7  ♦  lrrdp_procf8 

let  tot  =  lrrdp_procf2  +  lrrdp_procf3  +  lrrdp_procf4  +  lrrdp_procf5  + 
lrrdp_procf6  +  lrrdp_procf7  +  lrrdp_procf8 
if  tot  *  O  then  print  column  90. "(Procurement  Funds  Not  Scheduled)", 
else  beg  in 


if  1 r rd p_pr oc f 2>0 
else  print  " 

then 

print 

lrrdp  _procf2 

us  ing 

•■######  “ 

if  Irr dp_proc f 3>0 
else  print  " 

then 

print 

lrrdp_procf3 

using 

"######  “ 

if  lrrdp_procf 4>0 
else  print  " 

then 

"  l 

print 

lrrdp_procf4 

using 

”######  •• 

if  Ir r d p_p r oc f 3>0 
else  print  " 

then 

print 

lrrdp_procf5 

using 

”  ######  •• 

if  lrrdp_proc f6>0 
else  print  " 

then 

print 

Irr dp  _pr oc  f 6 

using 

"«««#«#  « 

if  Irr d p _pr oc f 7>0 
else  print  " 

then 

print 

lrrdp_proc  f7 

using 

'•#####•  •• 

if  lr r d p_p r oc f 8>0 
else  print  " 

then 

print 

lrrdp_procf8 

us  ing 

”«*«###  •• 

end 

print  column  132. "i 


D-108 


Jul  15  09  18  1986  pom89cum  Page  5 


print  “  !  "  ,  p  om89s  sn_seq,  using  “  ##### 

if  s snd_def  11*0  then  print  ssnd_defl  using  '■  s snd_c on  1 , 

if  ssnd_def2>0  then  print  ssnd_def2  using  "  ssnd_con2i 

if  ssnd_def3>0  then  print  ssnd_def3  using  “  ##*((".  ssnd_con3i 

if  ssnd_def43>0  then  print  ssnd_def4  using  “  ####''.  ssnd_con4; 

if  ssnd_def5>0  then  print  ssnd_def5  using  “  s snd _c on5; 

if  ssnd_def6>0  then  print  ssnd_def6  using  “  s snd_c on6; 

if  ssnd_def7>0  then  print  ssnd_def7  using  '■  ##*#",  ssnif_con7i 

print  column  7 1 .  " ! “ ,  c o 1 umn  79,  column  132,  "I" 
let  lent  »  lent  +  3 

before  group  of  u/kpkg_no 

if  u/ k p k g _p e  O  "  "  then  begin 
if  lent  >  45  then  begin 
let  eont  =  1 

print  “i", column  9,  column  7 1 .  “ ! "  ,  c o 1 umn  79,  " ! “ ,  c o l umn  132."!" 

print  "  - 


skip  to  top  of  page 
end 

if  head  «  1  then  begin 
print  "  - 


print  "!  SSN  i",6  s p a c e s , "T I TLE " , c o 1 umn  58. "DA/TDC  MA", 
column  71, " !  PDIP  ! ", 

"  87  88  89  90  91  92  93  ! 

print  "i - I - - 


let  lent  *  lent  +  3 
let  head  =  O 
end 

let  ent  «  ent  +  1 
let  rfl  »  rfl  +  uikpfr_fl 
let  rf2  =  r f 2  +  w kpfr~f2 
let  rf3  =  rf3  +  uikpfr_f3 
let  r f 4  ■  rf4  +  wkpfr_f4 
let  rf5  «  r f 5  +  ukpfr_f5 
let  rf6  =  rf6  +  uikpfr_f6 
let  r f 7  =  r f 7  +  uikpfr_f7 

print  11  !  ",  column  9,  "!",l  spaces,  ent.  ".",2  spaces.  wk p  k g_p e, 

2  sp  ac  es .  uikp  kg_pr  o  j .  2  spac  es  ,  uk  p  k  g  _tas  k  clipped.  2  spaces, 
tekpkg_no  clipped.2  spaces,  u/kp  k  g_cmd  clipped,"  Crit:", 
uniiukp_srf  using  "  ##",  column  71 ,  "  !  ",  c o  1  umn  79,"! 
if  uikpfr_fl>0  then  print  wkpfr_fl  using  "######  **j  else  print  " 

if  u<kpfr_f2>0  then  print  u»kpfr_f2  using  "######  else  print  " 

if  uikpfr_f3>0  then  print  wkpfr_f3  using  "######  else  print  " 

if  uikpfr_f4>0  then  print  wkpfr_f4  using  "######  else  print  " 

if  uikpfr_f5>0  then  print  wkpfr_f5  using  "######  "i  else  print  " 

if  <ukpfr_f6>0  then  print  u;kpfr_f6  using  "######  else  print  " 

if  <nkpfr_f7>0  then  print  wkpfr_f7  using  "######  else  print  " 

print  column  132,"!" 

print  "  !  ",  column  9,  "!“,  10  spac  es,  tek  p  k  g_t  i  1 1  e  C  1,  503,  c  o  I  umn  71,”!" 

un iukp_p om89C  1.  43,  unisikp _p om89C 5,  63 .  "  !  " ; 

if  w  k  p  f  r  _u 1 >0  then  print  -ukpfr_ul  using  "(((((#)";  else  print  " 

if  wkpfr_u2>0  then  print  -u/kpfr_u2  using  "((((<#)";  else  print  " 

if  wkpfr_u3>0  then  print  -wkpfr_u3  using  "(((((#)";  else  print  " 
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if 

uk  p f r_u4>0 

then 

pr  int 

-uik  p  f  r  _u4 

using 

"((((<#)"; 

else 

print"  " ; 

if 

talk  p  f  r  _uS>0 

then 

print 

-uik  p  f  r  _u5 

using 

“(<<((#>"  i 

else 

print"  “  i 

if 

talk  p  f  r  _u6>0 

then 

print 

-uik  p  f  r_u6 

using 

"(((<<#)“  i 

else 

print"  "  i 

if 

talk  p  f  r_u7>0 

then 

print 

-talk  p  f  r_u7 

using 

"<<<(<#>" j 

else 

print"  " ; 

print  column  133,"!" 
let  lent  »  lent  +  2 
end 

after  group  of  scl_ssn 
if  lent  >  44  then  begin 
let  cont  =*  1 

print  “ I column  9,  “  !  ”,  column  71 ,  ” ! " . c  o 1 umn  79.  "  S  ".  co  l umn  132.  "  ! 
print  "  - - 


skip  to  top  of  page 
end 

if  head  =  1  then  begin 
print  "  - 


print  "  !  SSN  !  " ,  6  spaces.  “TI TLE”  .Col  umn  58.  "  DA/TDC  h!A 
column  71."!  PDIP  !". 

"  87  88  89  90  91  92  93 

print  "! - ! - - 


let  lent  =  lent  +  3 
let  head  =  O 
end 

print  "!",  column  9."! ".column  71 .  “ ! " .  c o 1 umn  79.  " ! ",  column  132,"!" 
print  “ I ". column  9."!". 21  spaces. “Cumulative  Totals:  ". 

column  50. "Procurement  Funded:  ".column  71. "!", column  79,"!  " 


pf  1 

using  *' 

# «*#«»  1 

* . p  f 2  using 

"###### 

",  p  f  3 

using  "######  “ 

P  f  4 

using  *' 

#»###*  ■ 

”.pf5  using 

"##»»#» 

",  pf6 

using  "######  " 

P  f  7 

using  c< 

*« column  132 

i  '*  ! 

print  "  ! 

” . col umn  9, “ ! " , 

col  umn  57.  "1 

RDTE  Funded:  " 

,  c  o 1 umn  71 ,  "  !  " , 

col umn  79. “ 

rf  1 

using  " 

#**#«*  ' 

'.  r  f  2  us  ing 

"###### 

”,  r f 3 

using  "######  '• 

rf  4 

using  " 

######  ' 

“«rfS  using 

",  rf6 

using  "######  " 

r  f  7 

using  " 

#**#*#*  ' 

".col  umn  132 

M  •  11 

let  lent 

*  lent 

+  3 

end 
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<  System  Priority  Ratings  Developer  > 

<  4/23/86  changed  to  mamp  database 

3/2/86  added  the  blank  count  field,  added  the  unique  ssn  check  > 


database  ma 

-P 

end 

define 

var  table 

tot 

type  integer 

var i ab 1 e 

ndef  type  integer 

var i ab 1 e 

na 

type 

integer 

var  table 

nb 

type 

integer 

var  tab  le 

nc 

type 

integer 

var i ab  1  e 

nd 

type 

integer 

var  tab  1  e 

n  e 

type 

integer 

var  lab  1  e 

n  x 

type 

integer 

var  table 

b  1 

type 

integer 

var iab  le 

score 

type  float 

var  iab  I  e 

conval 

type  float 

var 1  able 

d  e  f  va 1 

type  float 

end 

output 

page  length  32000 
left  mar  g in  0 
right  ma  r  g i n  80 
top  ma  r  g  i  n  0 
report  to  "priori,  out" 
end 

read 

ssndef_ssn  ssndef_def  s  sn d  e  f  _c  on  t  _va  I  ue 
joining  unissn_ssn  =  ssndef_ssn 
end 

sort  by  ssndef_ssn  ssndef_def  s snd ef _c on t_va 1 ue  end 
format 

before  group  of  ssndef_ssn 
let  score  =  0  0 
let  ndef  *  0 
let  n  a  =  0 
let  n  b  =  0 
let  nc  =  0 
let  nd  =  0 
let  ne  =  0 
let  n  x  =  0 
let  b 1  =  0 

before  group  of  ssndef_def 

if  ssndef_def  ;•  0  then  begin 

if  s sn d e f _c on t _va 1 ue  *  "A"  then  begin 
let  na  =  na+1 
let  conval  =  16.0  end 
else  if  s snd ef _c on t_va 1 ue  =  "B"  then  begin 
let  nb  *  nb  1 
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let  conval  =  8.0  end 

else  if  s snd ef _c on t_va 1 ue  =  "C"  then  begin 
let  nc  =  nc  + 1 
let  conval  =4.0  end 

else  if  s snd e f _c on t _va 1 ue  =  "0"  then  begin 
let  nd  =  nd  +  1 
let  conval  =  2,0  end 

else  if  s  s  n  d  e  f  _c  o  n  t  _va  1  u  e  =  then  begin 

let  ne  ■=  ne+1 
let  conval  =  1.0  end 

else  if  s snd ef _con t_va 1 ue  =  "F"  then  begin 
let  in  =  n K-el 
let  conval  =0.0  end 
else  begin 

let  b 1  =  b l+l 
let  c onva  1=0.0 
end 

if  ssndef_def  =  1001  then  let  defval  =  30. 0 
else  let  defval  =  ( 500. 0-s snd e f _d ef ) /l 0.  0 
let  score  =  s  c  or  e  +  d  e  f  va  1  -*c  on  va  1 
let  ndef  =  ndef+1 
end 


after  group  of  ssndef_ssn 
if  ndef'O  then  begin 

print  ssndef_ssn,  “  !  " ,  ndef,  "!".na<  ”  !  “ .  nb,  nc,  " 
n  e .  "  !  " ,  n  t ,  “  \  ,  b  1 ,  “  :  •' ,  score,  "  I  " 

end 


!  ",  n d , 


end 
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<  Workpackage  Priority  Ratings  Generator  > 

<  4/23/36  changed  to  the  mamp  data  base 

5/2/86  changed  the  blank  workpackage  criticality  value  to  rero.  added  the 
unique  ssn  check. 

7/10/86  changed  the  workpackage  criticality  factor  from  wkpsys_srf  to 
ukpsys_srf  in  keeping  with  iitri's  usage.  > 

database  mamp  end 


define 


var iab  1  e 

nsys 

type 

integ  er 

var iab  1  e 

hisys 

type 

f  loat 

var  iab  1  e 

losys 

type 

float 

var iab  1  e 

score 

type 

float 

var iab  1  e 

c  onva 1 

type 

float 

end 

output 

page  length  32000 
top  marg  in  0 
left  margin  0 
right  marg in  132 
report  to  “prior2.  out" 

end 

read  into  a 

wkpsys_cmd  wkpsys_cat  wkpsys_wkpkg  wkpsys_ssn  wkpsys_srf 
priori _s care 

joining  unissn_ssn  =  wkpsys_ssn 

and  unissn_ssn  =  priorl_ssn_no 

end 

sort  by  wkpsys_cmd  wkpsys_wkpkg  wkpsys_ssn  end 

format 

before  group  of  wkpsys_wkpkg 
let  scare  =  0.  0 
let  nsys  =  0 
let  hisys  =  0.0 
let  losys  =  100000  0 

before  group  of  wkpsys_ssn 

if  wkpsys_ssn  O  “  H  then  begin 

if  wkpsys_srf  =  1  then  let  conval  =  10.  0 

else  if  wkpsys_srf  =  2  then  let  conval  =  5.  0 

else  if  wkpsys_srf  =  3  then  let  conval  =  2.  5 

else  if  wkpsys_srf  «*  4  then  let  conval  =  1.25 

else  let  conval  =0.0 

let  score  =  sc  or e+p r i o r 1 _s c or e*c onva I 
let  nsys  =  nsys+1 

if  pr i or  1 _s c or e>h i sy s  then  let  hisys  =  priorl_score 
if  pr i or  1 _s c ored osy s  then  let  losys  =  priorl_score 
end 


after  group  of  wkpsys_wkpkg 
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if  nsys=0  then  let  losys  =  0.0 

print  u/kpsys_cmd<  “  !  ” .  tn  k  p  s  y  s  _e  a  t .  "  .  ui  k  p  s  y  s  _w  k  p  k  g  ,  n  s  y  s , 

h  l  s  y  s .  "  !  " .  1  o  s  y  s  >  "  !  " .  score/  “ i ” 

end 
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<  System  Priority  Ratings  Report  > 

<  Previously  computed  Ratings  stored  in  Priori  > 

<  this  version  prints  out  the  unclassified  version  with  just  the  ratings  and 
a  generic  tabulation  of  the  number  of  ratings  of  each  category. 

4/23/36  switch  to  the  mamp  data  base. 

3/3/36  added  ttblanks  to  the  output. 

3/12/86  added  base  case  systems  at  the  top  of  the  list.  > 
database  mamp  end 
define 


var lab  1 e 

ent 

type 

integer 

var iab le 

pno 

type 

integer 

paramC 1 1 

p  letter 

type 

charac  ter 

length  1 

paramC21 

code 

type 

integer 

paramC31 

name 

type 

character 

length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  } 
end 

output 

left  margin  0 
right  margin  132 
report  to  "priorsys. out" 
end 

read  into  b 
scl_ssn 

where  scl_cade  =  code  and  scl_name  «  name 
end 

read  into  c 
b 

ssn_amc_mgr  ssn  da  ma 
be  =  O 

where  s sn_ac <i_c ode  >  2  or  ssn_acq,_code  =  0 
joining  b.scl_ssn  =  optional  ssn_ssn 
end 

read  into  d 
b 

ssn_amc_mgr  ssn_da_ma 
be  ■  1 

where  s sn_acq_cod e  »  1 
joining  b.scl_ssn  =  ssn_ssn 
end 

assign  e  »  c  union  d  end 

read  into  a 

e 

lrrdp_title 

priori 

joining  e.  scl_ssn  «  optional  pr i or  1 _s sn_no 
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and  e  scl_ssn  =  optional  lrrdp_ssn 

end 

sort  by  be  descending  priorl_score  descending  priorl_ndef  descending 
scl_ssn  end 


format 
page  header 

print  column  47,  "*•*#**  UNCLASSIFIED  *•***■*“ 
skip  2  1 ines 

print  column  46, name  clipped,"  1-N  DEVELOPMENT  SYSTEM  BDP  RANKING" 
skip  2  lines 

print  7  spaces, "SSN", 5  spaces, "DA  MA“,4  spaces, "AMC  MGR", 15  spaces, 

"TITLE",  column  88,"  #DEF  #A  #B  #C  #D  #E  #X  BL  RATING" 
skip  1  line 

page  trailer 
skip  2  lines 

print  column  47,  “**■»**  UNCLASSIFIED  ****■»" 

print  column  100, date, 2  spaces, time 

if  pletter=“Z“  then  print  column  60, pno 

else  print  column  60,  p  1  etter,  pno  using  "###" 

let  pno  =  pno+1 

before  group  of  scl_ssn 
let  ent  =  cnt+1 

print  ent  using  "####.  ",scl_ssn,4  spaces,  ssn_da_ma, 

5  spaces,  ssn_amc_mgr,  column  30,  lrrdp_titleC 1,  SOI,  2  spaces, 
priorl_ndef  using  "####",  pr i or l_na  using  "####",  priorl_nb  using  "####", 
priorl_nc  using  ,  pr ior l_nd  using  "####", 

priorl_ne  using  pr i or l_n *  using  "a###",  pr ior l_b 1  using  "####"; 

if  be  »  1  then  print  "  base  case" 
else  print  priorl_seore  using  "####•#.  ##" 


end 
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{  Tech  Base  Workpackage  Priority  Ratings  Report  > 

{  Previously  Computed  Priorities  from  Priori  and  Prior2. 

3/21/86  taken  from  priorwp 

this  report  allows  only  6.  1.  6.  2,  and  6.  3A  wor k p ac k ag e s . 

workpackages  are  selected  which  are  linked  in  any  way  to  systems 
in  the  ssncontrol  file.  > 

database  mamp  end 

define 

variable  cnt  type  integer 

variable  pno  type  integer 

paramClI  pletter  type  character  length  1 

paramC2J  code  type  integer 

paramC3I  name  type  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  “ 
end 

output 

left  marg  in  0 
right  marg in  1 32 
report  to  "priortb. out" 
end 

read  into  b 
sc l_ssn 

where  scl_code  =  code  and  scl_name  =  name 
end 

read  into  a 

u'kP  k9_cmd  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no  wkpkg_title 
prior2_scare  prior2_nsys 

where  (wkp kg_subcat  =  "6.  1 "  or  wk p kg_sub ca t  =  "6.  2"  or  wkp kg_subcat  =  "6.  3A” ) 
joining  b.sci_ssn  =  wkpsys_ssn 

and  wkp sy s_wkp k g_i d x  =  wkp kg_wkp sy s_i d x 
and  wkpkg_no_idx  =  optional  pr i or2_wk p k g _i d x 

end 

sort  by  prior2_sco re  descending  prior2_nsys  descending 
wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no  end 

forma t 
page  header 

print  column  47,  "**♦**  UNCLASSIFIED  *«•**•*” 
skip  2  lines 

print  column  49. "BDP  TECH  BASE  WORKPACKAGE  RANKINGS" 
print  column  49."  FOR  ".name 

skip  2  1 ines 

print  6  spaces. "PE  PROJ  TASK  NO". 18  s p ac e s . "TI TLE" , 45  spaces. 

"uOTIMAND" ,  10  spaces,  "RATING  #  SYS 
skip  1  line 
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page  trailer 
skip  2  lines 

print  column  47, "**♦**  UNCLASSIFIED  ***♦*" 

print  column  100, date, 2  spaces, time 

if  pletter="Z"  then  print  column  60, pno 

else  print  column  60. plotter, pno  using  "###" 

let  pno  =  pno+1 

after  group  of  wkpkg_no 
let  cnt  =  cnt+1 

print  cnt  using  "#**##.  ■' ,  uk  p  k  g  _p  e,  1  sp  ac  e,  wk  p  k  g_pro  j  .  1  spac  e,  wk  p  k  g_tas  k , 

1  space,  wkp  kg_no,  3  spac  es.  u>kp  k  g  _t  i  1 1  e,  wk  p  kg_cmd  .  pr  i  or2_sc  or  e. 

1  spac e,  p r i or2_ns y s 

end 
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<  Workpackage  Priority  Rating*  Report  > 

<  Previously  Computed  Priorities  from  Priori  and  Prior2. 

4/23/86  changed  to  mamp  data  base. 

3/12/86  limited  to  6.3.  6.4,  and  6.7  uorkpackages.  ) 

database  manp  end 
def ine 

variable  cnt  type  integer 

variable  pno  type  integer 

paramClI  pletter  type  character  length  1 

paramCSl  code  type  integer 

paramC31  name  type  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  mar g in  0 
right  margin  132 
report  to  “priorup. out" 
end 

read  into  b 
p  c l_i d  x 

where  pcl_cade  =  code  and  pcl_name  =  name 

and  (pcl_subcat  =  "6. 3A"  or  pcl_subcat  =  "6.  3B"  or  pcl_subcat  =  "6.4 
or  pcl_subcat  =  "6.7") 

end 

read  into  a 

uikpkg_cmd  uikpkg_pe  uikpkg_proj  wkpkg_task  wkpkg_.no  uk  p  kg_  t  i  1 1  e 

prior2_score  pr ior2_nsys 

joining  b  pcl_idx  =  wk p k g_pr o j_i d x 

and  wkpkg_no_idx  =  optional  pr i or2_wkp kg _ i d x 

end 

sort  by  prior2_score  descending  prior2_nsys  descending 
ink pkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no  end 

format 
page  header 

print  column  47,  "*■»***  UNCLASSIFIED  ***♦*" 
skip  2  1 ines 

print  column  49,  name  clipped,"  1-N  WORKPACKAGE  BDP  RANKINGS" 
skip  2  lines 

print  6  spaces,  "PE  PROJ  TASK  NO",  18  s p a c e s ,  " TI TLE" , 45  spaces, 

"CG7IMAND",  10  spaces,  "RATING  #  SYS 
skip  1  line 

page  trailer 
skip  2  lines 

print  column  47, "****♦  UNCLASSIFIED  ****♦" 
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print  column  100. date, 2  spaces, time 
if  pletter»"Z"  then  print  column  60, pno 
else  print  column  60,  p  1  e t ter .  p no  using  "###'' 
let  pno  =  pno  +  1 

after  group  of  <ukpkg_no 
let  cnt  =  cnt+1 

print  cnt  using  "####.  ",  uikp  kg_pe.  1  s  pac  e,  uik  p  k  g_pr  o  j ,  1  spec  e,  u/k  p  k  g_tas  k , 

1  space,  wkp  kg_no,  3  spa c  es,  wk p  k g_t  i  1 1  e,  u>kp  k g_cmd  ,  pr  i or 2_sc or  e, 

1  space , p r ior2_nsg s 
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<  BDP  priority  system  decision  aid.  Shows  systems  in  BDP  priority,  base  case 
first,  and  shows  uniquely  linked  wor kpac kages.  with  cumulative  rdte  funding 
after  each  system  with  rdte  linked.  > 

database  mamp  end 


define 


variable 

lent 

type  integer 

var iab  le 

ent 

type  integer 

var iab la 

head 

type  integer 

var iab  1  e 

break 

type  integer 

va  r  i  a  b  1  e 

obreak 

type  integer 

var iab 1 e 

pno 

type  integer 

var iat  1  e 

tot 

type  float 

var iab 1 e 

f  1 

type  long 

var iab  1  e 

f  2 

type  long 

var  iab le 

f  3 

type  long 

var iab  1  e 

f  4 

type  long 

variab  le 

f  3 

type  long 

var iab 1 e 

f  6 

type  long 

var iab  le 

f  7 

type  long 

variab  le 

ul 

type  long 

var  iab  1  e 

u2 

type  long 

var  iab  1  e 

u3 

type  long 

var  iab  1  e 

u4 

type  long 

var  iab  1  e 

u3 

type  long 

var iab  1  e 

u6 

type  long 

var iab le 

u7 

type  long 

paramC 1 1 

p  letter 

type  character 

length  1 

paramC21 

code 

type  integer 

paramC33 

name 

type  character 

length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  " pr isy sda2.  out " 
end 

read  into  b 
sc l_ssn 

where  scl_name  *  name  and  scl_code  «  code 
end 

read  into  a 
b 

ssn_amc_mgr  ssn_tradoc_ma  ssn_da_ma 
be  »  1 

where  ssn_acq_code  =  1 
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joining  b .  s  c  1  _s  s  n  «  nn_un 
end 

read  into  d 
b 

ssn_amc_mgr  ssn_tradoc_ma  ssn_da_ma 
be  »  0 

where  ssn_acq_code  >  2 
joining  b.scl_ssn  »  ssn_ssn 
end 

assign  c  =  a  union  d  end 

read  into  a 
c 

prior l_score 
hipri_title 

joining  c.scl_ssn  «  optional  pr i or  1 _s sn_no 
and  c.scl_ssn  »  optional  hipri_ssn 

end 

read  into  d 
pc l_id  * 

where  pcl_code  =  code  and  pcl_name  *  name 
end 

read  into  e 
d 

wkp  kg_wkpsgs_id  x  wkpkg_title 

wkpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f3  wkpfr_f6  wkpfr_f7 
wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u5  wkpfr_u6  wkpfr_u7 
joining  d.pel_idx  «  wk p kg_pr o j_id x 

and  wkpkg_no_idx  =  optional  wkpf r_wkp kg_i d x 

end 

read  into  c 
a 
e 

un iwkp_srf 

joining  a.  s'i_ssn  =  optional  uniwkp_ssn 

and  uniwkp_wkp kg_id x  =  optional  *.  wk p kg_wkp sg s_i d x 

end 

sort  bg  be  descending 

priorl_score  descending 

sc l_ssn 

wkpkg_proj 

hi  k  p  k  g  _n  o 

end 

format 
page  header 

print  column  47, "***«*  UNCLASSIFIED  **•*•**" 
skip  2  lines 

print  column  46. "BDP  SYSTEM  RANKING  DECISION  AID  FOR  ".name  clipped 
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print  column  30,  "WITH  CUMULATIVE  TOTALS  (RTDE) " 
skip  2  1 ines 
l*t  head  **  1 
l*t  lent  ■  0 

pag*  trailer 

print  column  47, “*•*•***  UNCLASSIFIED  **•**■*" 

print  column  100,  date, 2  space*, time 

if  pl*tter="Z"  then  print  column  60, pno 

else  print  column  60,  p  letter,  pno  uiing  "###■’ 

let  pno  =  pno+1 

on  last  record 

print  column  9,"! ".column  71,  " ! column  79.  " ! " . c o 1 umn  132."!" 

print  " - - - 


before  group  of  scl_ssn 
let  ent  =  O 

if  lent  >  42  then  begin 

print  "!", column  9,  "  i  ", c o 1 umn  71, "!",  column  79.  "!". column  132,"!" 
print  " - - - - 


skip  to  top  of  page 
end 

if  head  3  1  then  begin 
print  "  - 


print  " !  SSN  i ",  6  spac es,  "TITLE",  c o 1 umn  38,  "DA/TDC  MA”, 
column  71,  " i  BOP  !  ", 

"  87  SB  89  90  91  92  93  !  " 

print  "i - ! - - 

M __________________  .  _ _ .  . _ _ _ __  t  l« 

I 

let  lent  lent  +  3 
let  head  -  O 
end 

print  " ! ",  column  9,"! ".column  71,  column  79.  " ! " ,  co 1 umn  132."!" 
print  "!  ",scl_ssn,"!  ",  h ipr i_t i 1 1 *C 1,  433,  2  spaces.  ssn_da_ma,  "  /  ", 
ssn_tradoc_ea,  column  71,  "!“,  prior l_score  using  "  #####  ","!", 
col umn  132.  " i “ 
let  lent  ”  lent  +  2 

before  group  of  u/kpkg_no 

if  tukpkg_pe  O  "  “  then  begin 
if  lent  >  43  then  begin 

print  " ! ",  column  9.  "i", column  71 , " ! ", c o lumn  79.  "!".  column  132,"!" 
print  " - - - 


skip  to  top  of  page 
end 

if  head  *  1  then  begin 
print  "  - 


print  "  !  SSN  !",6  spac ** ,  "TITLE". c o 1 umn  58,  "DA/TDC  MA", 
c o lumn  71 ,  "  !  BDP  !  ", 

"  87  88 


89 


90 


91 


92 


93 
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print 


let 

let 


lent 

head 


lent 

0 


+  3 


end 

let 

ent  5 

=  ent 

+  l 

let 

f  i 

33 

f  i 

uik  p  f  r  _f  1 

let 

f  2 

3 

f  2 

uikp  f  r_f2 

let 

f  3 

= 

f  3 

uj  k  p  f  r  _f  3 

let 

f  4 

XS 

f  4 

-► 

iek  p  f  r  _f  4 

let 

f  5 

= 

f  5 

u/  k  p  f  r  _f  5 

let 

f  6 

= 

f  6 

uikp  f  r_f  6 

let 

f  7 

= 

f  7 

+ 

uj  k  p  f  r  _f  7 

let 

ul 

= 

ul 

+ 

uikp  f  r_u  1 

let 

u2 

3 

u2 

> 

uk  p f r _u2 

let 

u3 

S 

u3 

uik p  f  r _u3 

let 

u4 

= 

u4 

u/  k  p  f  r  _u  4 

let 

uS 

* 

uS 

-♦» 

uikp  f  r_u5 

let 

u6 

= 

u6 

+ 

uik  p  f  r  _u6 

let 

u7 

3 

u7 

4* 

uikp  f  r_u7 

print  ' 

'  ! 

“ .  col  umn  9,  " ! " 

1  spaces,  ent,  '*,2  spaces.  uikpkg_pe. 

2  spac  es,  uikp  k  g_p  r  o  j ,  2  sp a c  e  s ,  ink p  k  g _ta s  k  clipped.  2  spaces. 


m  k  p  k  g  _n  o  clipped. 
uniuikp_srf  using 


2  spaces,  uikpkg_cmd 
"  column  71,  "  I  “ 


c  1  i p p ed .  c o 1 umn  58.  "Crit: 
c  o  lumn  79.  "1 


if 

uik  p  f  r_f  1>0 

then 

print 

uikp  f  r_f  1 

using  “######  ” 

else 

print  " 

if 

uikp  f  r_f2>0 

then 

print 

mk  p  f r_f 2 

using 

"##<*###  " 

else 

print  “ 

if 

Uikpf  r_f3>0 

then 

print 

ui  k  p  f  r  _f  3 

using  “######  •• 

else 

print  “ 

if 

uifcpfr_f4X> 

then 

print 

uik  p  f  r_f  4 

using 

'######  " 

else 

print  “ 

if 

u/kpf  r_f  5>0 

then 

print 

ui  k  p  f  r  _f  5 

using  "«»*«*#  “ 

else 

print  " 

if 

uikp  f  r_f  6>0 

then 

print 

uikpfr_f6 

using  ■'######  " 

else 

print  “ 

if 

uik  p  f  r  _f  7>0 

then 

print 

uikpfr_f  7 

using  "######  " 

else 

print  " 

10  spaces,  inkpkg_titleCl,  503.  column  71. 


“((<<<#)"; 
“<<<(<#>"» 
“<<<((#)": 
•*((((<#)'•  i 
"<((<(#)••; 
“<<<((#)"; 
"<<<((#)■•  i 


else 

else 

else 

else 

else 

else 

else 


print 

print 

print 

print 

print 

print 

print 


print  column  132."!” 
print  “ i ",  column  9.  " 
column  79, " ! 

if  wkpfr_ul>0  then  print  -uikpfr__ul  using 
if  uikpfr_u2>0  then  print  -uikpfr_u2  using 
if  ink  p  fr  _u3>0  then  print  -uikpfr_u3  using 
if  tnkpfr_u4>0  then  print  -uikpfr_u4  using 
if  uikpfr_u5>0  then  print  -uikpfr_u5  using 
if  <nkpfr_u6>0  then  print  -uikpfr_u6  using 
if  uikpfr_u7>0  then  print  -uikpfr_u7  using 
print  column  132."!" 
let  lent  =  lent  +  2 
end 

after  group  of  scl_ssn 
if  ent  >  0  then  begin 

if  lent  >  44  then  begin 

print  "  !  ",  column  9.  " i ",  column  71 .  " ! " . c o 1 umn  79,  " ! " , c o 1 umn  132. 

print  " - - 

skip  to  top  of  page 
end 

if  head  »  1  then  begin 

print  “ - - - 
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print  “  !  SSN  '.".6  spaces.  “TITLE",  column  58.  “DA/TDC  KA“, 
c 0 lumn  71 ,  “ !  BDP  ! “. 

“  87  88  89  90  91  92  93  ! 

print  “  ! - ! - - - 


let  lent  «  lent  +  3 
let  head  *  O 
end 

print  "!“. column  9,  co lumn  71.  “ i c  o lumn  79,  " ! " , c  o 1 umn  132.  “! " 
print  "!“. column  9,“!", 21  spaces, “Cumulative  Totals:  ”, 

column  50, "RDTE  Funded:  “.column  71 ,  "  I  ",  e o lumn  79,“!  “, 
fl  using  “######  ",f2  using  “######  “,  f3  using  "######  ”, 

f4  using  "######  “,  f5  using  “######  ",  f6  using  “######  ", 

f 7  using  “######  ",  column  132,  “! “ 
print  “I", column  9,“:". 

col  umn  50,  “RDTE  Un  funded:  “.col umn  71 ,  “ i " . c  o lumn  79,  “ !  " , 
ul  using  “######  ",  u2  using  '•######  ",  u3  using  "######  ", 

u4  using  “######  ",  u5  using  "######  ", u6  using  "###### 

u7  using  “######  “.column  132, 
let  lent  »  lent  +  3 
end 

end 


I 

I 

I 

I 

I 


a 
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{  Procurement  priorities  report  for  type  classified  systems. 

4/23/86  changed  to  mamp  data  base. 

4/25/86  changed  to  reflect  c lass i f ica t ion  of  Irrdp  priorities  and  to  add 
parameter  to  deselect  printing  of  those  priorities.  > 


database  mamp  end 


define 

variable  cnt 
variable  pno 
paramCll  pletter 
param£2J  code 
paramC33  name 
paramC43  class 
end 


type  integer 
type  integer 
type  character 
type  integer 
type  character 
type  character 


length  1 

length  12 
length  1 


input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 


output 

left  margin  0 
right  margin  132 
report  to  "procpri. out" 
end 


read  into  b 
s  c  1  _s  s  n 

where  scl_code  =  code  and  scl_name  ”  name 
end 


read  into  a 
b 

ssn_amc_msc  ssn_da_ma 
where  ssn_acg_code  ■  2 
joining  b.scl_ssn  »  optional  ssn_ssn 
end 

read  into  c 
a 

lrrdp_title  lrrdp_pdip 

lrrdppri_pri 

ok  =  t 

joining  a.  scl_ssn  =  lrrdp_ssn 

and  Irrdp _p dip  =  Irrdppri _pdip 

end 

read  into  b 
a 

lrrdp_title  lrrdp_pdip 
Irr dppr i_pr i 
ok  ■  0 

where  Irrdppri  _pri  =*0.0 

joining  a.scl_ssn  »  optional  lrrdp_ssn 

and  lrrdp_pdip  =  optional  Irrdppr i_pd i p 

end 
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assign  d  =  c  union  b  end 

sort  by  ok  descending  lrrdppri_pri  scl_ssn  lrrdp_pdip  end 

format 

page  header 

if  class  =  "U"  then  print  column  47,  "*****  UNCLASSIFIED 
else  print  column  47,  "*♦***  CONFIDENTIAL  *****" 
skip  2  1 ines 

print  column  47, "  DA  PROCUREMENT  PRIORITY  FOR  “.name 
skip  2  lines 

print  17  spac  es,  "SSN" ,  3  spaces,  “DA  MA‘\4  spaces,  "AMC  MSC',13  spaces 
'•TITLE'',  column  98,  "  PDIP  PRIORITY" 

skip  1  line 

page  trailer 
skip  2  lines 

if  class  =  "U"  then  print  column  47, "***♦*  UNCLASSIFIED 

else  print  column  47,  “*♦***  CONFIDENTIAL  *****" 

print  column  100, date, 2  spaces, time 

if  pletter="Z"  then  print  column  60,pno 

else  print  column  60,  p  1  e  t  ter,  ,  p  no  using  "###'' 

let  pno  =  pno+1 

before  group  of  lrrdp_pdip 
let  cnt  =  cnt+1 

print  10  spaces,  cnt  using  "##*#.  ”.scl_ssn,4  s p ac e s ,  s sn_da_ma , 

3  spaces,  ssn_amc_msc,  2  spac e s,  Irr dp_t i 1 1 e C 1 ,  301 ,  2  spaces, 
Irrdp_p dipCI,  41,  lrrdp_pdipC5.  61,  2  spaces; 
if  class  =  "C"  then  begin 

if  ok*l  then  print  lrrdpprimjiri  else  print  "  not  assigned" 
end 

else  begin 

if  ok=l  then  print  ""  else  print  "  not  assigned" 
end 


***** 


***** 


end 
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<  This  report  lists  the  projects  in  prjctl  and  checks  to  see  if  theg  are  also 
in  the  proj  file.  > 

database  mamp  enn 

output 

report  to  “projecli. out" 
left  margin  0 
right  margin  132 
end 

read  into  b 
prjctl 
pro j_title 

joining  pcl_idx  «  optional  proj_idx 
end 

sort  bg  pcl_cmd  pel_pe  pcl_proj  pcl_name  end 
format 

page  header 

print  "COMMAND" ,  7  sp a c es .  "PE" . 3  spaces.  "PROJ".  2  spaces.  "CAT", 2  spaces. 

"SUBCAT", 2  spaces. "CODE". 2  spaces, "NAME", 12  spac es, "TITLE" 
skip  2  1 ines 

on  everg  record 

print  pcl_cmd.2  spaces,  pc l_pe> 2  spaces,  pc l_pro j.  2  spaces,  pc l_cat.  2  spaces, 
pcl_subcat,2  spaces,  pc l_code.  2  spaces,  pc l_name.  2  spaces,  proj_title 

end 
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<  Project  Index  for  the  proj— uikpkg  report.  > 
database  manp  end 

<  last  modified  2/6/86  to  add  mission  area  parameter  and  date-time  stamp. 
3/6/86  to  add  page  letter  and  page  number. 

S/12/86  changed  to  the  mamp  data  base.  > 

define 

variable  i 
variable  pno 
par amC 11  pletter 
paramC21  code 
paramC31  name 
end 

input 

prompt  for  pno  using  “Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  “projindei, out" 
end 

read  into  a 

proj_idr  proj_title 

inhere  pcl_code  *  code  and  pcl_name  =*  name 
joining  pcl_idx  «  praj_idx 
end 

sort  by  proj_pe  proj_na  proj_cmd  end 
format 
page  header 

print  column  47.  "****■*•»  UNCLASSIFIED  *■*■*■***'• 
skip  3  lines 

print  column  31. name  clipped."  FUNDED  RDTE  PROJECT  INDEX" 
skip  3  lines 

print  31  sp ac e s . "PE " , 5  spec es . "PROJ" , 13  spaces. "TITLE" . 

28  spec  es .  "COffMAND"  .  8  s pac  e s .  “P AGE " 
skip  2  lines 

before  group  of  proj_no 
let  i  *  i+1 

before  group  of  proj_cmd 

print  30  s p ac e s .  p r o j _p e .  3  spac es.  pro j_no; 

print  3  spaces.  proj_titleCl.  403.  3  spaces. proj_cmd. 3  spaces.  ”  — 

page  trailer 
skip  2  1 ines 

print  column  47,  "******  UNCLASSIFIED  ***■*•**“ 
print  column  100. date. 2  spaces,  time 


type  integer 
type  integer 
type  character  length  1 
type  integer 

type  character  length  12 
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if  pletter«"Z"  than  print  60  spaces. pno 

els#  print  60  spac  es.  p  letter.  pno  using  “###" 

let  pno  =*  pno+1 

end 
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<  PROJ  -  WKPKG  summary  > 

<  last  modified  2/6/86  to  add  mission  area  parameter  and  date-time  stamp. 
2/7/86.  added  page  letter  parameter. 

Also  modified  2/26/86  for  Exec.  Assmt. 

revised  3/5/86  to  remove  belvoir  specifics  and  to  replace  peproj  in  the  mamp. 
Modified  5/21/86.  changed  to  mamp  database. 

5/27/86  cleaned  up  a  bit.  Added  cumulative  project  funding  variables. 

6/2/86  removed  mandatory  check  for  being  in  the  system  control  .  ile. 

noui  only  reports  if  in  the  mission  area  control  file. 

6/4/86  added  uorkpackage  criticality  factor.  Sort  output  by  beginning  year. 
6/6/86  added  one  extra  space  for  the  up k  number,  removed  one  space  from 
title. 

7/23/86  changed  ukpsys_srf  to  wkpsys_srf  in  keeping  uith  iitri's  usage.  > 
database  mamp  end 


define 


var iab 1 e 

evalcount 

type 

integer 

var iab 1 e 

pagecount 

type 

integ  er 

var iab  1  e 

1  lnecount 

type 

integer 

var i ab  1  e 

pno 

type 

integer 

paramC 1 1 

p 1 e 1 1 er 

type 

character 

length  1 

paramC21 

code 

type 

integ  er 

para.mC31 

name 

type 

character 

length  1 

var i a  b  1  e 

tfO 

type 

long 

var i ab  1  e 

ufO 

type 

long 

var iab  1  e 

tf  1 

type 

long 

var iab  1  e 

uf  1 

type 

long 

var iab  1  e 

t  f  2 

type 

long 

var iab  1  e 

uf  2 

type 

long 

variable 

t  f  3 

type 

long 

variable 

uf  3 

type 

long 

var iab  1  e 

t  f  4 

type 

long 

var  iab  1  e 

uf  4 

type 

long 

var iab  1  e 

t  f  5 

type 

long 

var  iab  1  e 

uf  5 

type 

long 

var iab  1  e 

t  f  6 

type 

long 

var iab  1  e 

u  f  6 

type 

1  ong 

var iab  le 

t  f  7 

type 

long 

var  iab  1  e 
end 

input 

uf  7 

type 

long 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

right  margin  132 
left  margin  0 
report  to  " projukp  out" 
end 

read  into  d 
pc l_i d  x 


V 
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k 


► 

i 

> 

t 

> 


where  pcl_code  =  code  and  pcl_name  =  name 
end 

read  into  b 
d 

proj_idx  proj_title 

P  k  9 _ t  i  1 1  e  wkpkg_task  inkpkg_no_idx  u/kpkg_ti)kpsgs_idx  ukpkg_pdip  inkpfr_baseyr 

wkpfr_fO  inkpfr_fl  tnkpfr_f2  inkpfr_f3  iukpfr_f4  inkpfr_f3  inkpfr_f6  inkpfr_f7 
uikp  fr_uO  wkpfr_ul  inkpfr_u2  iukpfr_u3  wkpfr_u4  inkpfr_u5  <nkpfr_u6  inkpfr_u7 
joining  d.pcl_idx  =  proj_idx 

and  proj_idx  =  optional  uikp  k  g_p  r  o  j_i  d  x 
and  uk p k g _no_i d x  =  optional  ink  p  f  r_ink  p  kg_i  d  x 

end 

read  into  a 
b 

iukpsys_ssn  inkpsys_srf  lrrdp_title 

joiningb.iukpkg_uikpsys_idx  =  optional  wkpsys_iukpkg_idx 
and  ukpsy5_ssn  =  optional  lrrdp_ssn 

end 

read  into  e 
sc l_ssn 

inhere  sc  I_code  =  code  and  scl_name  *  name 
end 

read  into  c 
a 
e 

joining  a.  ink  p  sy  s_ssn  =  optional  e.  scl_ssn 
end 

sort  by  proj_cmd  proj_pe  proj_no  ink  p  f  r  _bas  ey  r  iukpkg_task  inkpkg_no  uikpsys_ssn  end 

format 

page  header 

print  column  47, "**■**■**  UNCLASSIFIED  ******" 
skip  2  lines 

print  column  47, “  PROJECT YWORKP ACKAGE  SUMMARY" 

skip  2  lines 

print  8  spaces, "COMMAND:  ",proj_cmd, 

8  spac es,  "PROJEC T:  ",proj_pe,2  spaces,  pro j_no, 

10  spaces, "TI TLE :  ",proj_title  clipped; 
if  pagecount=l  then  print  "  (Continued)"  else  print  "" 
skip  1  line 

print  ” - - - - - " , 


print  "!  TASK/WKP/SSN" , 3  s p a c e s , "W0RKPACKAGE/SY5TEM  TITLE", 
col unn  67,  " !  PDIP  "  , 

column  73,  "i  FY86  FY87  FY88  FY89  FY90  FY91  FY92  FY93 
print  "  ! - - 


let  linecount  =  43 
page  trailer 
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skip  1  line 

print  "Legend",  column  47,  “*•»****  UNCLASSIFIED  ******" 

print  "■*  -  System  designated  in  Mission  Area", column  100, date, 2  spaces, time 

if  pletter*"Z"  then  print  column  60, pno 

else  print  column  60, p 1 e t ter , , pno  using  "###" 

let  pno  =  pno+1 

before  group  of  proj_no 
let  pagecount=0 
skip  to  top  of  page 
let  tfO  =  0 
let  ufO  =  0 
let  tfl  =  0 
let  ufl  =  0 
let  t f 2  ■  0 
let  u f 2  =  0 
let  tf 3  =  0 
let  uf3  =  0 
let  t  f 4  =  0 
let  uf 4  =  0 
let  tf5  =  0 
let  uf 5  =  0 
let  t  f 6  =  0 
let  uf 6  —  0 
let  t  f  7  =  0 
let  u f 7  =  0 

after  group  of  proj_no 

if  linecount  <  5  then  begin 

print  "!".  column  67,  "  column  75,  ”!", column  132,"!" 

print  " - - - - ", 


skip  to  top  of  page 
end 

else  begin 

print  "  i  ",  column  67,  "  ,'  "  ,  c  o  1  umn  75,  "  !  "  ,  c  0  1  umn  132,"! 
print  "  ! - - 


end 

print  " I  TOTAL  FUNDS  FOR  PROJECT:  FUNDED ",  c o  1  umn  67,  " ! " ,  c o 1 umn  75, 


if 

tf0>0 

then 

print 

tfO 

using 

"###### 

else 

print  " 

if 

tf  1>0 

then 

pr  int 

tfl 

using 

"##«*## 

else 

print  " 

if 

t  f  2>0 

then 

print 

tf  2 

using 

"####**  "; 

else 

print  " 

i  f 

tf3:-o 

then 

print 

tf  3 

us  ing 

"#####4  ") 

else 

print  " 

if 

tf4>0 

then 

print 

tf  4 

using 

else 

print  " 

if 

tf  s:>o 

then 

print 

tf  5 

us  ing 

"#»####  ", 

else 

print  " 

if 

tf6:-o 

then 

print 

tf  6 

using 

"####** 

else 

print  " 

if 

t  f  7>0 

then 

print 

tf  7 

u  i  ing 

"######  "i 

else 

print  " 

print  column  132,"!" 

print  "  UNFUNDED" ,  c  0  1  umn  67,  "  !  " ,  c  o  1  umn  75,"! 


if 

ufOOO 

then 

print  -ufO 

us  ing 

else 

print  " 

if 

uf  100 

then 

print  -uf  l 

using 

■■<<<<(#)" 

else 

print  " 

if 

u  f  2>0 

then 

print  -uf2 

us  ing 

else 

print  " 

if 

uf  3>Q 

then 

print  -uf3 

using 

••(((((#)" 

else 

print  " 

if 

uf  4>0 

then 

print  -uf4 

using 

else 

print  " 

if 

uf  5>0 

then 

print  -ufS 

using 

••<((((#>" 

else 

print  " 
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if  uf6.'-'0  then  print  -uf6  using  "<<<((#>";  else  print 
if  uf7>0  then  print  -uf7  using  “(((<(#)“;  else  print 
print  column  132. “  ! " 

print  “ - - — - 


before  group  of  u/  k  p  k  g  _n  o 
let  evalcount  =  0 
if  1 inecountO  then  begin 

print  "I". column  67.  co  1  umn  73,  “  !  ",  c o  1  umn  132."! 
print  '  - - 


skip  to  top  of  page 
end 

print  "[".column  67.  "  !  " ,  c  o  1  umn  73,  “  .'  “ .  c  0  1  umn  132,"!" 

print  "  ".u/kpkg_taskC1.4],l  space,  uzkpkg_no.  1  space.  u/kpkg_titleCl.  491, 
column  67,  "!".u/kpkg_p dipCI,  42.  "-“,u/kpkg_pdipC5,  63.  column  75.  “  I  "i 


if 

u/kp  fr_fQ>Q 

then 

print 

u/k  p  f  r  _f  0 

using 

else 

pr  int 

if 

id  k  p  f  r  _f  1  >0 

then 

print 

u/k  p  f  r  _f  1 

using 

■•#*####  •• 

else 

print 

if 

u/kp  f  r_f  2>0 

then 

print 

u/kp  f  r_f  2 

using 

"#*####  ■■ 

else 

print 

if 

u/kp  f r _f 3>0 

then 

print 

u/  k  p  f  r  _f  3 

using 

'■###### 

else 

print 

if 

u/kp  f  r_f  4>0 

then 

print 

u/k  p  f  r  _f  4 

using 

else 

print 

if 

u/kp  f  r_f  5J0 

then 

pr  int 

u/k  p  f  r  _f  5 

using 

else 

print 

if 

u/kp  f  r_f  6>0 

then 

print 

u/kp  f  r— f  6 

using 

•■*##*##  •• 

else 

print 

if 

u/k  p  f r_f 7>0 

then 

print 

u/kp  f  r  __f  7 

using 

"######  n 

else 

pr  int 

let 

tf  0 

= 

tfO 

+ 

u/kp  f  r_f  0 

let 

tf  1 

= 

tf  l 

+ 

u/  k  p  f  r  _f  1 

let 

t  f  2 

t  f  2 

+ 

u/kp  f  r_f  2 

let 

t  f  3 

= 

t  f  3 

♦ 

u/kp  f  r_f  3 

let 

tf  4 

= 

t  f  4 

u/k  p  f  r_f  4 

let 

tfS 

= 

tf  5 

+ 

u/k  p  f  r_f  5 

let 

t  f  6 

s 

t  f  6 

+ 

u/kp  f  r_f  6 

let 

t  f  7 

as 

tf  7 

ui  k  p  f  r  _f  7 

let 

ufO 

= 

ufO 

u/kp  fr_uO 

let 

uf  1 

= 

uf  1 

+ 

u/k  p  f  r  _u  1 

let 

u  f  2 

= 

u  f  2 

4- 

u/kp  f  r_u2 

let 

u  f  3 

= 

u  f  3 

4- 

uz  k  p  f  r  _u  3 

let 

uf  4 

= 

uf  4 

+ 

u/kp  f  r_u4 

let 

uf  3 

= 

uf  5 

4- 

u/  k  p  f  r  _u  5 

1-t 

uf  6 

= 

uf  6 

4- 

u/kp  f  r_u6 

let 

uf  7 

= 

uf  7 

+ 

u/  k  p  f  r  _u  7 

print  " 1 

let 

1  inecount 

- 

1  inecount-2 

after  group  of  uikpkg_no 
let  pagecount  =  1 
if  evalcount  »  0  then  begin 

print  "'.".column  67,  "  " ,  c  o  1  umn  73.  "!“i 


if 

u/kp  f  r_u0>0 

then 

print 

-u/kp  f  r_uO 

using 

”  C  (  C  (  C  #  )  " 

e  1  se 

print 

if 

u/k  p  f  r_u  1  >0 

then 

print 

-u/k  p  f  r_u  1 

using 

"(((((#)" 

else 

print 

if 

u/kp  f  r _u2>0 

then 

print 

-u/k  p  f  r_u2 

using 

'■(((((#>" 

else 

print 

if 

u/kp  f  r _u3>0 

then 

print 

-u/kp  f  r_u3 

using 

*<<<<(#>" 

else 

print 

i  f 

u/k  p  f  r  _u4>0 

then 

print 

—u/kp  f  r_u4 

using 

••<(<(  <  #  >  •' 

else 

print 

if 

u/kp  f  r_u3>0 

then 

print 

-u/k  p  f  r_u5 

using 

■((<((#)" 

else 

print 

i  f 

u/k  p  rr _u6>0 

then 

print 

-u/kp  f  r_u6 

using 

"(((((#)" 

else 

print 

if 

u/kp  f  r _u7>0 

then 

print 

-u/kp  f  r_u7 

using 

"  ( <  ( c  V  #  >  ” 

else 

pr  int 
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print  column  132/'':" 
let  linecount  *  linecount-1 
end 

before  group  of  u/kpsys_ssn 

if  u/k  p  sy  s_ssnO"  "  then  begin 
if  linecount  <  3  then  begin 

print  fl  !  "i  column  67,  "  !"»  column  75." I", column  132-  "  ' 
print  " - - 


skip  to  top  of  page 
end 

print  “  !  " ,  5  spaces,  u;kpsys_ssn,  2  spaces.  lrrdp_titleCl.  48  3,1  space. 

ukpsys_srf  using 
if  scl_ssnO"  "  then  print 
print  column  67,  " I  ",  column  75,  "  ! 
let  linecount  =  linecount-1 
if  evalcount  =  0  then  begin 
let  evalcount  =*  1 

if  ukpfr_uO>0  then  print  -u/kpfr_uO  using  "<(<<<#)">  else  print 

if  ykpfr_ul>0  then  print  —  uikpfr_ul  using  “(((<(#>",  else  print 

if  ukpfr_u2>0  then  print  -ujkpfr_u2  using  "<(<(<#)"•  else  print 

if  -i/kpfr_u3>0  then  print  -wkpfr_u3  using  "((<((#)“!  else  print 

if  'j/kp  fr_u4>0  then  print  -wkpfr_u4  using  "<((<<#>“<  else  print 

if  >jkpfr_u5>0  then  print  -uikpfr_u5  using  "<<(((#>";  else  print 

if  ukpfr_u6>0  then  print  u;kpfr_u6  using  “(((<(#)";  else  print 

if  ukpfr_u7>0  then  print  -u/kpfr_u7  using  "(((<(#>";  else  print 

end 

print  column  132.  “  !  " 
end 


end 
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<  PR Qj  -  WXPKG  blank  summary  > 

<  last  modified  2/6/86  to  add  mission  area  parameter  and  date-time  stamp. 
2/7/86.  added  page  letter  parameter.  Also  modified  2/26/86  for  Exec  Assmt 
revised  3/5/86  to  remove  belvoir  specifics  and  to  replace  peproj  in  the  mamp 
5/2/36  moved  to  the  mamp  and  removed  the  funding  information  to  produce  a 
blank  table  Changed  the  planning  horizon  to  fy87  to  fy93  > 

database  mamp  end 

define 

variable  evalcount  type  integer 

variable  pagecount  type  integer 

variable  linecount  type  integer 

variable  pno  type  integer 

paramCll  pletter  type  character  length  1 

paramC21  code  type  integer 

par,imC3]  name  type  character  length  12 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

right  margin  132 
left  margin  0 

report  to  "projwkpblk.out” 
end 

read  into  a 
pc  1 _ i d x 

where  pcl_code  =  code  and  pcl_name  =  name 
end 

read  into  b 
proj_title 

uikpkg_u)kpsys_idx  uxkpkg_title  wkpkg_pdip 
joining  a  pcl_idx  =  proj_idx 

and  a.pcl_idx  =  optional  wk p k g_pr o j_i d x 

end 

read  into  d 

unique  scl_ssn  lrrdp_title 
joining  scl_ssn  =  lrrdp_ssn 
end 

read  into  c 
b 
d 

joining  b  wk  p  k  g  _wk  p  s  y  s  _i  d  x  *>  optional  wk  p  s  y  s  _w  k  p  k  g  _i  d  x 
and  ukpsys_ssn  =  optional  d.scl_ssn 

end 

sort  by  wkpkg_cmd  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no  scl_ssn  end 
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forma  t 
page  header 

print  column  47,  "*****■»  UNCLASSIFIED  *•»****" 
skip  2  lines 

print  column  47,"  PROUECT/WORKP ACKASE  SUMMARY" 

skip  2  lines 

print  8  spaces/  "COMMAND:  " .  u/k  p  k  g  _c md , 

8  sp  ac  e  S/  "PROJECT:  ",iekpkg_pe,2  spaces,  uikpkg_proj, 

10  s pac e s . "T ITLE :  “.proj_title  clipped; 
if  pagecount=l  then  print  "  (Continued)"  else  print  "" 
skip  1  line 

print  "  - 

print  "I  TASK/WKP/SSN", 3  s p a c e s , "WORKP ACKAGE/SYSTEM  TITLE", 
column  67,"!  PDIP", 

column  75,  "!  FY87  FY88  FY89  FY90  FY91  FY92  FY93 

print  "  1 - - - ! 

let  linecaunt  =  45 

page  tra i 1 er 
skip  1  line 

print  column  47,  "#***•»*  UNCLASSIFIED 
print  column  100, date, 2  spaces, time 
if  pletter="Z"  then  print  column  60.pno 
else  print  column  60,  p  1  et ter.  pno  using  "###" 
let  pno  =  pno+1 

before  group  of  tukpkg_proj 
let  p  a  g  e  c  o  un  t =0 
skip  to  top  of  page 

after  group  of  wkpkg_proj 

if  linecount  <  5  then  begin 

print  column  67,  “ !  '.column  75>  "  !  ” ,  column  132,  " i " 

print  "  - - 

skip  to  top  of  page 
end 

else  begin 

print  “ ! ”,  column  67,  "I",  column  75,  “ ! " ,  c 0 1 umn  1 32,  " ! " 

print  '  - - - 

end 

print  !  TOTAL  FUNDS  FOR  PROJECT:  FUNDED ", c o 1 umn  67, "!”, column  75,"!", 

column  132. "! " 

print  "1  UNFUNDED", column  67, "!", column  75,"!", 

column  132,"!" 

print  "  - 


before  group  of  iukpkg_no 
let  evalcount  =  0 
if  linecount C 5  then  begin 

print  "1",  column  67 ,  " ! " ,  col umn 


75, 


col  umn  132, 
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print 


skip  to  top  of  page 
and 

print  "I", column  67, “ ! " , c o 1 umn  73.  “  !  ",  eo  lumn  132."!" 

print  "!  " ,  wkp k g _tas k C 1 , 43 -  1  space,  wkp kg_noC 1,  63,  2  spac es,  uk p kg_t i 1 1 »C 1 ,  303 , 
column  67,  "!"  ,u/kpkg_pdipCl,43.  “-".wkpkg_pdipC3>63,col  umn  73,  "  ! 
col umn  132. “ ! “ 
let  linecount  «  linecount-2 

after  group  of  u/kpkg_no 
let  pagecount  =  1 
if  evalcount  =  0  then  begin 

print  "l". column  67. " ! “ , c o 1 umn  73. “ ! ”. c o lumn  132."!“ 
let  linecount  =  linecount-1 
end 

before  group  of  scl_ssn 

if  scl_ssnO"  "  then  begin 
if  linecount  <  3  then  begin 

print  "!", column  67, " ! " , c o 1 umn  75, " ! " . c o 1 umn  132."!“ 

print  ” - - ' 


skip  to  top  of  page 
end 

print  "I  ",  5  spaces,  scl_ssn,  2  spaces,  lrrdp_titleCl.  503, 
column  67, "!", column  73. 
let  linecount  =  linecount-1 
if  evalcount  =  0  then  begin 
let  evalcount  =  1 
end 

print  column  132, " ! " 
end 

end 
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<  this  creates  the  database  for  the  ssndroll  file.  It  is  a  rollup  of  the  top 
8  deficiencies  for  any  one  system.  > 

database  iranp  end 

define 

variable  ndef  type  integer 
end 

output 

page  length  32000 
left  margin  0 
right  margin  80 
top  margin  0 

report  to  "ssndroll. out" 
end 

read 

ssndef_ssn  ssndef_def  s s nd e f _c on t_va 1 ue 
joining  unissn_ssn  =  ssndef_ssn 
end 

sort  by  ssndef_ssn  ssndef_def  end 
format 

before  group  of  ssndef_ssn 
let  ndef  =  0 
print  ssndef _ssn.  " ! 

before  group  of  ssndef_def 

if  ndef<8  and  s sndef _d ef >0  then  begin 
let  ndef  =  ndef+1 

print  ssndef _def.  " ! " » ssnd ef _c on t_va 1  ue  <  ” ! " i 
end 

after  group  of  ssndef_ssn 
let  ndef  =  8-ndef 
if  ndefOO  then  begin 
while  ndefOO  do  begin 
print  ”0  !  I  " : 
let  ndef  =  ndef-1 
end 
end 

print  group  count  using 
end 
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<  system  to  deficiency  cross  reference  check. 

6/5/86  taken  from  priorsys 

6/30/86  mad*  unclassified  with  new  guidance.  > 

database  mamp  end 
define 

variable  ent  type  integer 

variable  dent  type  integer 

variable  pno  type  integer 

paramCll  plotter  type  character  length  1 

paramC21  code  type  integer 

paramC31  name  type  character  length  12 
end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  O 
right  margin  132 
report  to  “sysdef. out" 
end 

read  into  b 
sc l_ssn 

inhere  scl_eode  *  cod*  and  scl_name  *•  name 
end 

read  into  c 
b 

ssn_amc_mgr  ssn_da_ma 

lrrdp_ti tie 

priori 

joining  b.scl_ssn  *  optional  prior l_ssn_no 
and  b.scl_ssn  =  optional  lrrdp_ssn 
and  b.  scl_ssn  »  optional  ssn_ssn 

end 

read  into  a 
c 

ssndef_def  ssnd*f_cont_value 
joining  c.scl_ssn  »  optional  ssndef_ssn 
end 

sort  by  scl_ssn  ssnd*f_d*f  end 
format 

page  header 

print  column  47, "*♦***  UNCLASSIFIED  ****♦“ 
skip  2  lines 

print  column  44, name  clipped,"  SYSTEM  BDP  RANKING  AND  DEFICIENCIES" 
skip  2  lines 
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print  7  spac es.  "SSN",  5  spaces, "DA  MA".  4  spaces, “AMC  MGR", 13  spaces. 

•‘TITLE",  column  88,"  #DEF  *A  #B  #C  #D  *E  #X  BL  RATING" 
skip  1  line 

page  trailer 
skip  2  lines 

print  column  47,  '•*■****  UNCLASSIFIED  **•*■**" 

print  column  100, date,  2  spaces. time 

if  pletter*"Z"  then  print  column  60. pno 

else  print  column  60, p letter, pno  using  "###" 

let  pno  ■  pno+1 

before  group  of  scl_ssn 
let  cnt  *  cnt+1 

print  cnt  using  “•###.  “,scl_ssn,4  spaces. ssn_da_ma, 

3  spaces,  »sn_ai»c_ffljr,  column  30.  lrrdp_t  i  1 1  e  C  1 .  30] ,  2  spaces, 
priorl_ndef  using  “####“,  pr i or l_na  using  "####",  priorl__nb  using  "####", 
priorl_nc  using  “####“,  pr i or l_nd  using  "####“, 

priorl_ne  using  “####",  pr i or  1 _n x  using  "####",  pr i or l_b 1  using  “####", 
priorl_score  using  “######.##" 
let  dent  *>  0 
print  13  spaces; 

after  group  of  scl_ssn 
print  " " 

before  group  of  ssndef_def 
let  dent  »  dcnt+1 
if  dcnt>13  then  begi' 
let  dcnt»l 
print  " “ 
print  13  spaces; 
end 

print  ssndef_def  using  "  ssndef_cont_value; 

end 
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<  abbreviated  system  to  deficiency  cross  reference  check, 
removed  system  titles  and  priori  data  from  sysdef. 

8/4/86.  taken  from  sysdef.  > 

database  mamp  end 

define 


var  iab le 

dent 

type 

Integer 

variab le 

pno 

type 

Integer 

paramC 1 1 

p  letter 

type 

character 

length 

1 

paramC21 

code 

type 

integer 

paramC31 

name 

type 

charac  ter 

1  eng  th 

12 

paramC41 

cmd 

type 

character 

length 

12 

end 

input 

prompt  for  pno  using  “Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  “sysdef2. out" 
end 

read  into  b 
s  c  1  _s  s  n 

where  scl_code  »  code  and  scl_name  matches  name 
end 

read  into  c 
b 

where  ssn_amc_mgr  matches  cmd 
joining  b.scl_ssn  -  ssn_ssn 
end 

read  into  a 
c 

ssndef_def  ssndef _cont_va lue 
joining  c.scl_ssn  »  optional  ssndef_ssn 
end 

sort  by  scl_ssn  ssndef_def  end 

format 

page  header 

print  column  47. “*****  UNCLASSIFIED  ***♦*" 
skip  2  lines 

print  column  30. name  clipped."  SYSTEM  BDP  DEFICIENCIES" 
skip  2  lines 

print  2  spaces. “SSN".  3  spaces.  “DEFICIENCIES" 
skip  1  line 

page  trailer 
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skip  2  lin*s 

print  column  47. "*****  UNCLASS1FI 
print  column  100. data. 2  spaces. tim* 
if  pl*tt*r»"Z"  then  print  column  60. pno 
els*  print  column  60. p letter . pno  using 
let  pno  *  pnori 

before  group  of  scl_ssn 
print  scl_ssn<4  spaces: 
let  dent  ■  0 

after  group  of  scl_ssn 
print  ““ 

before  group  of  ssnd*f_d*f 
let  dent  *  dcnt+1 
if  dcnt>15  then  begin 
let  dcnt«l 
print 

print  10  spaces: 
end 

print  ssndef_def  using  "  *###•',  ssndef_ 


E  D  ***** 


c  on t_va 1 ue 


end 
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<System  Summary  with  Dollar  Values  inserted. 

Last  modified  on  2/4/86  to  add  date-time  stamp>  tradoc  ma. 
ma  parameter,  and  workpackage  rating  factor. 

2/7/86  to  change  commodity  and  mission  area  designators. 

3/12/86  changed  to  the  mamp  database.  changed  the  logic  so  that  all  systems 
with  any  workpackages  and  all  developmental  systems  -  regardless  of 
workpackages  -  will  print.  Added  page  letter  parameter. 

3/13/86  removed  *1000  in  lrrdp  funded  amounts.  It's  already  in  SlOOOs. 

3/16/86  added  report  group  parameter  (t) 

3/21/86  changed  parameter  t  to  "matches"  condition. 

6/9/86  removed  group  parameter  <t).  this  report  will  print  all  systems 
Including  type  classified.  Removed  <  completed  >. 

6/13/86  changed  classification  to  include  the  possibility  of  a  secret 
system  description.  Get  classification  from  ssn_class. 

7/3/86  corrected  project  linkage  to  allow  workpackages  in  control  file 
linked  to  other  mission  areas. 

7/10/86  changed  wkpsys_wc  to  wkpsys_srf  in  keeping  with  iitri's  usage. 

7/13/86  extensive  modifications  to  print  multiple  pdips.  > 

database  mamp  end 
define 


var iab  le 

p  f  mt 

type 

character 

length 

8 

var iab  1  e 

nfmt 

type 

character 

length 

8 

var iab  1  e 

b  f  mt 

type 

character 

1  eng  th 

8 

variable 

proghead 

type 

character 

length 

30 

variable 

vb 

type 

character 

1  eng  th 

1 

var lab le 

head 

type 

integer 

var  iab  le 

phead 

type 

integer 

var  iab le 

unf 

type 

integer 

variable 

hf  lag 

type 

integer 

variable 

tb  f lag 

type 

integer 

var iab le 

pr intf  lag 

type 

integer 

var iab  le 

break 

type 

integer 

var iab  1  e 

obreak 

type 

integer 

variable 

pagebreak 

type 

integer 

var  iab  le 

1  ineslef t 

type 

integer 

var  lab  le 

wtot 

type 

integer 

var iab  le 

eva 1  count 

type 

integer 

var iab  1  e 

pno 

type 

integer 

paramC 1 1 

p 1 e  tter 

type 

character 

1  eng  th 

1 

par amC21 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

p  ar amC  4 1 

cmd 

type 

character 

length 

12 

paramC  31 

ssn 

type 

character 

1  eng  th 

6 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 

right  margin  132 

report  to  "sysdol  lars. out" 
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end 

read  into  c 
jcl_un 

where  *cl_code  »  code  and  scl_name  ■  name  and  scl_ssn  matches  ssn 
end 

read  into  a 
c 

acg_code  acg_type 

ssn  desc  ssn_reg,_doc  1  ssn^rtu _ doc2  ssn_reg _ doc3  ssn_amc_msc  ssn^coro _ line 

ssn_xf uncarea  ssn_amc_ mgr  ssn_tradoc_pr o  ssn_tradoc_ma  ssn_da__ma  *sn_ class 
where  ssn_amc_mgr  matches  cmd 
joining  c.scl_ssn  »  optional  ssn_ssn 

and  ssn_acg_code  »  optional  acg_code 

end 

read  into  b 

a 

lrrdp_pdip  lrrdp_title 

lrrdp_procfl  lrrdp_procr2  lrrdp_procf3  lrrdp_procf4  lrrdp_procf3 
lrrdp_procf6  lrrdp_procf7  lrrdp_procf8  lrrdp_procf9  lrrdp_procf 10 
lrr dp_pr oc f 1 1  lrrdp_pr oc f 12  lrrdp_procf 13  lrrdp_procf 14 
lrrdppr i _pr i 
s  sndro 1 1 
assr 

joining  a.scl^ssn  =  optional  lrrdp_ssn 

and  lrrdp_pdip  “  optional  lrr d ppr i_p d i p 
and  a.  5Cl_ssn  »  optional  ssnd_ssn 
and  a.  scl_ssn  »  optional  assr_ssn 

end 

read  into  c 
pr jctl 

where  pcl_code  =  code  and  pcl_name  »  name 
end 

read  into  a 
b 

wkpsys_srf 
pr i or2_nsy  s 

wkpkg_cmd  wkpkg_cat  wkpkg_subcat  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_no 
wkp k g_t i t 1 e  wkpfr_baseyr 

wkpfr_fO  wkpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f3  wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u3  wkpfr_u6  Wkpfr_u7 
c.  pc l_name 

joining  b.scl_ssn  ■  optional  wkpsys_ssn 

and  wk psy s_wkp kg_i d x  ■  optional  wkp k g_wkp sy s_i d x 
and  wkpkg_no_idx  ■  optional  wkp f r_wk p k g_id x 
and  wkp kg_pro j_id x  »  optional  c.pcl_idx 
and  wkpkg_no_idx  *  optional  pr i or2_wkp kg_id x 

end 

sort  by  scl_ssn  wkpkg_subcat  descending 

wkpsys_sr#  wkpkg_pe  wkpkg_proj  wkpkg_no  lrrdp_pdip  end 
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format 


page  header 

if  ssn_c  lass  —  "S"  then  print  column  52'  "*♦**■**  SECRET  *■*##** 
else  print  column  47#  "**#*♦-*  CONFIDENTIAL  *•***■*••*" 
skip  2  lines 

print  20  spaces-  "SSN:  “,scl_ssn,20  spac es.  "TITLE:  lrr dp_t i 1 1  * 

let  pagebreak  *  0 

let  printflag  *  1 

let  linesleft  *  51 

let  vb  «  " ! “ 

let  pfmt  =  "#######  - 

let  nf mt  =  "((((((#)“ 

let  bfmt  =  "  " 


page  trailer 
skip  1  1  ine 
print  "Legend: "l 

if  ssn_class  =  “S"  then  print  column  52- "******  SECRET  **■»***" 

else  print  column  47, "******  CONFIDENTIAL  ******“ 

print  “v  -  Workpackage  Contribution  Value"- column  100- date, 2  spaces, time 

print  “  *  -  name  clipped."  Funded  Workpackage" 

print  "  m  -  Workpackage  Supports  Multiple  Systems"! 

if  pletter  =  "l"  then  print  column  60, pno 

else  print  column  60, p letter, pno  using  "###” 

let  pno  =  pno+1 


before  group  of  scl_ssn 
skip  to  top  of  page 
let  tbflag  =  0 
let  head  =  1 


if  assr_ssnl<>"  " 
skip  1  1 ine 
print  20  spaces, 
if  assr_ssnlO" 
if  assr_ssn20" 
if  assr_ssn3<>" 
if  assr_ssn4<>" 
if  assr_ssn5<>" 
if  ajsr_jsn60" 
if  assr_ssn7<>" 
if  assr_ssn80" 
if  assr_ssn9<>" 
if  #ssr_ssnlOO" 
print  "  " 
let  linesleft  “ 
end 


then  begin 

"ASSOC  SSN: "; 

"  then  print  4 
"  then  print  4 
"  then  print  4 
"  then  print  4 
"  then  print  4 
"  then  print  4 
“  then  print  4 
"  then  print  4 
"  then  print  4 
"  then  print  4 

1 ines 1  *  f  t-2 


spaces, assr_ssnl; 
spaces,  assr_ssn2; 
spaces, assr_ssn3; 
spaces,  assr_ssn4; 
spaces,  assr_ssn5i 
spaces,  assr_ssn6; 
spaces,  assr_ssn7; 
spaces,  assr_ ssn8; 
spaces,  assr_ssn9; 
spaces,  assr_ssnlO! 


skip  1  1 ine 

print  "DA/TRADOC  Mission  Area:  ",  ssn_da_ma,  "  /  ",  »sn_tradoc_ma, 

column  80, "AMCMSC:  ",  ssn_amc_msc 

print  “Commodity  Line:  ",  ssn_com_l ine, 

column  80.  "AMC  Manager:  ",  ssn_amc_mgr 

print  "Cross  Functional  Area:  ",  ssn_xf uncarea. 

column  80  . "TRADOC  Proponent:  ",  s sn_tradoc_pro 
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print  "  Ac  qu  i  *  i  t  ion  Type:  ",acq_type. 

column  80,  "Req.  Docum«nt:  s sn_req_d oc 1 , 

",  ssn_r eq_d  oc2,  ",  ",  ssn_r eq_d  oc3>  " ) " 
let  linesleft  3  linesleft-S 


skip  1  line 

print  "TOP  8  DEFICIENCIES: 
if  ssnd_defl>0  then  begin 
print  s snd_d ef 1 ; 


if  ssnd_conlO"  "  then  print 
if  ssrd_def2>0  then  begin 
print  ",  ",  ssnd_def2; 

it  H  it 

ssnd_conl; 

else 

print  “ 

II  • 

end 

if  ssnd_con20“  "  then  print 
if  ssnd_def3>0  then  begin 
print  ",  ",  ssnd_def3; 

••  _  «< 

s  snd_c  on2i 

else 

print  " 

•1  ■ 

end 

if  ssnd_con30"  "  then  print 
if  ssnd_def4>0  then  begin 
print  ",  ",ssnd_def4; 

s  snd_c  on3i 

else 

print  " 

end 

if  ssnd_con40"  "  then  print 
if  ssnd_def5>0  then  begin 
print  ",  ",  ssnd_def5; 

It  _  N 

ssnd_con4; 

else 

print  “ 

end 

if  ssnd_conSO"  "  then  print 
if  ssnd_def6>0  then  begin 
print  ",  ",ssnd_defd>J 

ssnd_con5. 

else 

print  " 

end 

if  ssnd_con60"  "  then  print 
if  ssnd_def73>0  then  begin 
print  ",  ",  ssnd_def7i 

s  snd_c  on6; 

else 

print  " 

end 

if  ssnd_con70"  "  then  print 
if  ssnd_def8>0  then  begin 
print  ",  ",  ssnd_def8; 

If  ^  II 

s  snd_c  on7i 

else 

print  " 

"  f 

end 

if  ssnd_con80“  "  then  print 
print  "  " 

If  ^  II 

ssnd_con8,' 

else 

print  " 

"i 

end 

let  linesleft  *  linesleft  -2 
skip  1  line 

print  "DESCRIPTION:  "; 

let  break  »  118 

while  ssn_desc  C  br  ea  k  ,  br  ea  k  30“  “  do  let  break  «  break-1 
print  s sn_desc C 1 ,  br eak 3 
let  obreak  =  break+1 
let  break  »>  break+118 

while  ssn_descCbreak,  breaklO"  "  do  let  break  *  break-1 
print  14  spaces,  ssn_desc C obrea k,  break  3 
let  obreak  »  break+1 
let  break  ■  break+118 

while  ssn_d  esc  Cbr  ea  k,  br  ea  k  30"  ”  do  let  break  «  break-1 
print  14  spac es,  ssn_desc C obreak ,  break 3 
let  obreak  »  break+1 
let  break  *  break+118 

while  ssn_desc  Cbreak,  break  30"  "  do  let  break  •  break-1 
print  14  spaces,  ssn_desc Cobreak,  break  3 
let  obreak  «  break+1 
let  break  »  break+118 

while  ssn_desc  Cbr  ea  k ,  break  3  0”  "  do  let  break  ■  break-1 
print  14  spaces,  ssn_desc Cobrea k,  break! 
let  obreak  ”  break+1 
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print  14  spac es,  ssn_desc C obrea k .  6001 
skip  2  1  inn 

1st  linesleft  =  linesleft-9 

before  group  of  lrrdp_pdip 

if  head  »  1  then  begin 

print  column  36-  "PRODUCTION  PROGRAM  C*K)" 
print  "  - 


print  “ S  PDIP/INCR". 

column  18,"!  94  93  96  97  98  99  I", 

"  86  87  88  89  90  91  92  93 

print  "! - ! - 


let  head  »  O 
let  phead  =  1 

let  linesleft  =  linesleft-4 
end 


if  phead  -1  then  begin 

if  lrr dp pr i _pr i>800.  0  or  1 r rd p p r i _p r i< 1 .  0  then  let  unf  =  l  else  let  unf=0 
print  vb.4  spac  es.  lrr  d  p  _pd  i  p  C  1.  43,  lrr  dp_p  d  i  p  C  5.  63,  c  o  1  umn  18, vb; 

if  unf=0  then  begin 

if  lr r d p_pr oc f 9>0  then  print  lrrdp_procf9  using  pfmt;  else  print  bfmt; 
lrrdp_procf 10>0  then  print  lrr dp_pr oc f 10  using  pfmt;  else  print  bfmt 

lrr dp_pr oc f 1 1>0  then  print  lrr d p_pr oc f 1 1  using  pfmt;  else  print  bfmt 

lrrdp_proc f 12>0  then  print  lrr dp_pr oc f 12  using  pfmt;  else  print  bfmt 

lrr dp_pr oc f 13>0  then  print  lrr dp_pr oc f 13  using  pfmt;  else  print  bfmt 

lrr dp_pr oc f 1 4>0  then  print  lr r d p_pr oc f 1 4  using  pfmt;  else  print  bfmt 


if 
if 
if 
if 
if 

print  vb; 

if  lrrdp_procf 1>0  then  print  lrrdp_procfl  using  pfmt 

if  lrrdp_proc f2>0  then  print  lrrdp_procf2  using  pfmt 

if  lrrdp_procf3>0  then  print  lrrdp_procf3  using  pfmt 

if  lrr d p_pr oc f 4>0  then  print  Irrdp_procf4  using  pfmt 

if  lrr dp_proc f 3>0  then  print  lrrdp_procf3  using  pfmt 

if  lrrdp_proc f6>0  then  print  lrrdp_procf6  using  pfmt 

if  lrrdp_procf7>0  then  print  lrrdp_procf7  using  pfmt 

lrrdp_procf8>0  then  print  lrrdp_procf8  using  pfmt 


if 
end 
else  begin 


else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 
else  print  bfmt; 


-lrrdp_proc f 9  using  -  *mt; 


if  lrrdp_proc f9>0  then  print 
if  lrrdp_procf 10>0  then  print  -irrdp_proef 10  using  nfmt; 

if  lrr dp_pr oc f 1 1>0  then  print  -lrrdp_procf 1 1  using  nfmt; 

if  lrrdp_procf 12>0  then  print  -lrr d p _proc f 12  using  nfmt; 

if  lr r d p_pr oc f 13>0  then  print  -lrr d p_pr oc f 13  using  nfmt; 

if  lrrdp_procf 14>0  then  print  -lrrdp_pr ocf 14  using  nfmt; 

print  vb; 

if  lrr dp_pr oc f 1>0  then  print  -lrrdp_pr oc f 1  using  nfmt; 

if  lrrdp_proc f 2>0  then  print  -lrrdp_pr oc f2  using  nfmt; 

if  lrrdp_proc f3>0  then  print  -lrrdp_proc f3  using  nfmt; 

lrrdp_pr oc f 4>0  then  print  -lrr dp_proc f 4  using  nfmt; 

lrrdp_procf3  using  nfmt; 

lrrdp_procf6  using  nfmt; 

if  lrrdp_proe f 7>0  then  print  -lrrdp_proc f 7  uiing  nfmt; 

if  lrrdp_prqcf8>0  then  print  -lrrdp_procf8  using  nfmt; 


else  print  bfmt; 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 


i  f 

if  lrrdp_procf 3>0  then  print 
if  lrrdp_procf6>0  then  print 


else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
else  print  bfmt 
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end 

print  column  132/ vb 
let  linesleft  *  linesleft  -1 
end 

before  group  of  uikp  kg_sub  ca  t 

if  proghead  «  '*  "  then  let  printflag  *  1 

if  (uikp  kg_subcat="6.  1 "  or  iekp  kg_subcat»“6.  2"  or  u»k  p  k  g_sub  ca  t  =  "6.  3A"  > 
then  begin 

if  tbflag  -  1  then  begin 
let  printflag  »  1 
let  tbflag  -  0 

print  M  - 


let  linesleft  =  linesleft-1 
if  linesleft  <  9  then  skip  to  top  of  page 
end 

let  proghead  =  "TECH  BASE  PROGRAMS  <*K)” 
end 

else  begin 

let  tbflag  =  1 

let  proghead  =  "DEVELOPMENT  PROGRAMS  C*K)" 
end 

after  group  of  ie  k  p  k  g  _n  o 

if  phead  ■  1  then  begin 

print  “  - - 


skip  2  lines 

let  linesleft  =  linesleft-3 
let  phead  »  0 
end 

if  linesleft  <  3  then  begin 
print  “  - 


skip  to  top  of  page 
skip  2  1 ines 

let  linesleft  «  linesleft-2 
end 

if  printflag  »  1  then  begin 
skip  2  1 ines 

print  column  55/ proghead 
print  ”  - 


print  vb.  column  63.  ",'v*m!". 

"  86  87  88  89  90  91  92  93 

print  "! - - 


let  linesleft  «  linesleft-6 
let  printflag  *  0 
end 

let  break  -  32 
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if  uikpkg_pe  =  "  "  then  print  “  !  <  No  identified  morkpackages  >■'; 

else  begin 

print  “  i  ",uikpkg_pe,  1  space,  uikpkg_proj,l  space.  uikpkg_taskC1.33,l  space. 

ink  P  k g_cmd  C  1 . 43.  1  space,  uikp  kg_no,  1  space/ 
while  wk  p  k  g_t  i  1 1  e  C  br  ea  k .  br  ea  k  lO”  “  do  let  break  =  break-1 
print  wk p kg _t i 1 1 e C 1 .  br ea k 3/ 
end 

print  column  63,  vb  ,  uik  p  sy  s_sr  f  using 
if  pcl_name  =  name  then  print  else  print  " 

if  pr ior2_nsys>l  then  print  "m".vb;  else  print  ”  ".vb/ 
let  wtot  =  uikp  f  r_f  O+uik  p  f  r_f  1+uik  p  f  r_f  2+uik  p  f  r_f  3+uikp  f  r_f  4+wk  p  f  r_f  5+ 
talk  p  f  r_f6+taik  p  f  r  _f  7+uik  p  f  r  _uO+uik  pfr_ul+uikpfr_u2+uikpfr_u3+ 
uik  p  f  r_u4+taik  p  f  r_u5+uik  pfr_u6+uikpfr_u7 
if  uitot  >  O  then  begin 


if 

wk  p  f r_f 0>0 

then 

print 

wk  p  f  r_f  0 

using 

p  f  mt; 

else 

print 

b  fmt 

i  f 

uik  p  f r_f 1>0 

then 

print 

w  k  p f r  _f  1 

using 

p  f  mt; 

else 

print 

b  fmt 

if 

talk  p  f  r_f  2>0 

then 

print 

u/kpfr  2 

using 

p  f  mt; 

else 

print 

b  fmt 

if 

wk  p  f r~f 3>0 

then 

print 

u k  p f 3 

using 

p  fmt; 

else 

print 

b  fmt 

i  f 

uik  p  f  r_f  4>0 

then 

print 

wk  p  f r_f 4 

using 

p  f mt; 

else 

print 

b  f  mt 

if 

ink  p  f r_f 5>0 

then 

print 

wk  p f r_f 3 

using 

p  f  mt; 

else 

print 

b  f  mt 

if 

ink  p  f  r_f  6>0 

then 

print 

w  k  p  f  r__f  6 

using 

p  fmt; 

else 

print 

b  fmt 

if 

uik  p  f  r_f  7>0 

then 

print 

wk  p  f r_f 7 

using 

p  fmt; 

else 

print 

b  fmt 

end 

else  if  wkpfr_baseyr>l 993  then  print  column  100,  "<sc h ed u 1 ed  out  year>”; 
else  print  ”  <not  scheduled>"/ 

print  column  132. vb 

if  break  >  29  then  print  vb. column  32,  uik  p  k  g_t  i  1 1  e  t  br  ea  k  +  1 ,  603; 
else  print  vb. column  32,  uik  p  kg_t  i  1 1  e  Cbr  ea  k  +  1 .  br  ea  k+31  3 ; 
print  column  63. vb."  ",vb; 


if 

uikp  f  r_u0>0 

then 

print 

-uik  p  f  r_u0 

us  ing 

nfmt 

else 

print 

b  fmt; 

if 

uik  p  f  r_u  1>0 

then 

print 

-uikp  f  r_u  1 

using 

nfmt 

else 

print 

b  fmt; 

if 

wkpf r_u200 

then 

pr  int 

-uikpfr_u2 

using 

nfmt 

else 

print 

b  f  mt; 

if 

uikpfr_u3>0 

then 

print 

-uikpfr_u3 

using 

nfmt 

else 

print 

b  fmt; 

if 

uik  p  f  r_u4>0 

then 

print 

-uik  p  f  r_u4 

using 

nfmt 

else 

print 

b  fmt; 

if 

uikp  f  r_u5>0 

then 

print 

-uikpfr_u5 

using 

nfmt 

else 

print 

b  fmt; 

if 

uik  p  f  r_u6>0 

then 

print 

-uikpfr_u6 

using 

nfmt 

else 

print 

b  fmt; 

if 

in  k  p  f  r_u7>0 

then 

print 

-uik  p  f  r_u7 

us  ing 

nfmt 

else 

print 

bfmt; 

print  column  132. vb 

let  linesleft  =  linesleft-2 

after  group  of  scl_ssn 

print  "  - 


end 
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database  manp  end 

<  last  modified  2/6/86  to  add  date— time  stamp  and  mission  area. 
2/7/86  to  get  title  and  mission  areas  from  ssndesc. 

3/3/86  to  add  pdip  and  proponent  entries 
3/6/86  to  add  page  letter  and  number 
4/23/86  switch  to  the  mamp  data  base. 

4/24/86  added  acquisition  code. 

3/2/86  only  the  highest  priority  pdip  is  now  printed. 

6/13/86  added  idxpg_.no  for  page  numbers. 

7/11/86  changed  "command"  to  "amc  mgr“.> 

define 

paramtl3  pletter  type  character  length  1 

paramC21  code  type  integer 

paramC31  name  type  character  length  12 

variable  pno  type  integer 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  mar g  in  0 
right  margin  132 
report  to  "sysindex. out" 
end 

read  into  b 
sc l_ssn 

where  scl_code  *  code  and  scl_name  »  name 
end 

read  into  a 
b 

ssn_amc_mgr  ssn_da_ma  s sn_tr ad oc __ma  ssn_tradoc _pro 
hipri_pdip  hipri_title  acq_stt 
i  d  x  p  g  _n  o 

joining  b  scl_ssn  »  optional  ssn_ssn 

and  b  scl_ssn  «  optional  hipri_ssn 
and  b  scl_ssn  -  optional  idxpg_ssn 
and  ssn_acq,_code  =  optional  acq_code 

end 

sort  by  hipri_titl#  scl_ssn  idxpg_.no  end 
format 

before  group  of  scl_ssn 

print  6  spaces,  sc l_ssn.  4  s p ac e s .  s sn_da_ma. 

3  spac  es.  ssn_tradoc__ma.  “  ssn_tr  ad  oc_pr  o.  4  spaces. 

h  ipr  i_t  i 1 1 e C 1 .  303 .  4  s pac e s .  s sn_amc_mgr ,  4  spac es .  ac q_s 1 1 , 

4  spaces. hipri  _p  d  i  p  C  1 .  4  3 . h  i  pr  i  _p  d  1  p  C  3.  63 .  3  spaces; 
if  idipg_no>0  then  print  idxpg_no  using  "####" 

else  print  " " 


D-151 


Jul  11  14:27  1986  sgsindex  Pag*  2 


page  header 

print  column  47.  '•****♦*  UNCLASSIFIED  ******" 
skip  2  lines 

print  column  43. name  clipped."  SYSTEMS  IN  ALPHABETICAL  ORDER  BY  TITLE" 
skip  2  lines 

print  7  spac es.  "SSN" , 3  spaces.  "DA  MA".3  spaces.  "TDC  MA/PRQP". 

18  spaces. "SYSTEM  TITLE". 

27  spaces. “AMC  MGR". 9  s pad es . " ACQ” , 6  s p ac es . "PD IP " , 7  spaces. "PAGE" 
skip  2  lines 

page  trailer 
skip  2  lines 

print  column  47.  '■*•*****  UNCLASSIFIED  *•#***#“ 

print  column  100,  date. 2  spaces,  time 

if  pletter=”Z"  then  print  62  spaces, pno 

else  print  62  spac  e  s,  p  le  t  ter ,  pno  using  "###" 

let  pno  =  pno+1 

end 
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database  mamp  and 

<  last  modified  2/6/86  to  add  date-time  stamp  and  mission  area. 
2/7/86  to  get  title  and  mission  areas  from  ssndesc. 

3/9/86  to  add  pdip  and  proponent  entries 
3/6/86  to  add  page  letter  and  number 
4/23/86  suite*  to  the  mamp  data  base. 

4/24/86  added  acquisition  code. 

9/2/86  changed  to  highest  priority  pdip 
6/13/86  added  idxpg_no  for  page  number. 

7/11/86  changed  "command”  to  “amc  mgr'\> 

define 

paramCll  pletter  type  character  length  1 

paramC23  cod*  type  integer 

paramC31  name  type  character  length  12 

variable  pno  type  integer 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 

output 

left  margin  0 
right  margin  132 
report  to  “sysindexl.out" 
end 

read  into  b 
sc l_ssn 

where  scl_cod*  «  cod*  and  scl_nam*  •  name 
end 

read  into  a 
b 

ssn_amc_mgr  ssn_da_ma  ssn_tradoc_ma  ssn_tradoc _pro 
hipri_pdip  hipri_titl*  acq_stt 
i  d  x  p  g  _n  o 

joining  b  scl_ssn  *  optional  ssn_ssn 

and  b  scl_ssn  »  optional  hipri_ssn 
and  b.scl_ssn  »  optional  idxpg_ssn 
and  ssn_acq_code  »  optional  acq_code 

end 

sort  by  scl_ssn  idxpg_no  end 
format 

before  group  of  scl_ssn 

print  6  spaces,  sc l_ssn< 4  spaces.  ssn_da_ma. 

9  spaces.  ssn_tradoc_ma.  “  ".  ssn_tradoc_pro  4  spaces. 

hipri_titl*Cl.  901.  4  spaces.  ssn_ame_mgr.  4  spaces.  acq_stt. 
4  spec «s.  h  ipr i_p d i p C 1 .  43.  .  h 1 pr 1 _pd i p C 9,  61 .  4  spaces, 

if  idxpg_no>0  then  print  idxpg_no  using  "####" 
els*  print  ” “ 


D-153 


Jul  11  14:38  1986  sgsindejl  Pag*  3 


page  header 

print  column  47,  "******  UNCLASSIFIED  ******•' 
skip  3  lines 

print  column  48, name  clipped,"  SYSTEMS  IN  NUMERICAL  ORDER  BY  SSN" 
skip  3  1 ines 

print  7  s p ac es ,  "SSN" ,  5  spaces,  “DA  MA",  3  spaces,  "TDC  MA/PROP", 

18  spaces, "SYSTEM  TITLE", 

27  spaces, "AMC  MCR“,9  sp ac es . “ ACQ” , 6  spac es, "PDIP" , 7  spaces, “PACE" 
skip  2  lines 

page  trailer 
skip  2  lines 

print  column  47,  ••*****♦  UNCLASSIFIED  ****♦*'• 

print  column  100, date, 2  spaces, time 

if  pl*tter*“Z"  then  print  62  spaces,  pno 

else  print  62  sp ac es, p 1 et t er , pno  using  "###" 

let  pno  »  pno  +  l 

end 
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■£  SYSTEM  RDTE  FUNDING  ROLLUP  PRODUCER.  This  program  is  the  precursor  to 

defroll.  It  summarizes  the  rdte  funding  for  a  system.  It  does  not  include 
6. S  funding  for  a  system.  > 


<  3/19/86. 
3/20/86. 
6/10/86. 


7/23/86. 

7/23/86. 


changed  to  the  mamp  database, 
made  corrections. 

removed  the  code  and  name  parameters.  This  program  now  works  for 
all  systems  in  the  wkpsys  file  and  should  be  updated  occasionally 
from  the  shell  sysprol. 

changed  from  year  to  generic  data  for  the  fields, 
changed  to  the  file  structure  of  fundpro. 
reinstituted  the  code  and  name  parameters.} 


latabase  mamp 

end 

lef ine 

paramC 1 1 

code 

type 

integer 

paramC21 

name 

type 

character 

variable 

V 

type 

character 

var  iab le 

fO_tb 

type 

long 

var  iab le 

uO_tb 

type 

long 

variable 

f 0_dev 

type 

long 

var iab 1 e 

uO_dev 

type 

long 

var iab le 

f  l_tb 

type 

long 

var iab  le 

ul_tb 

type 

long 

var lab  le 

f l_dev 

type 

long 

variable 

ul_dev 

type 

long 

var iab  le 

f  2_tb 

type 

long 

variable 

u2_tb 

type 

long 

var lab le 

f2_dev 

type 

long 

variable 

u2  dev 

type 

long 

variable 

f  3_tb 

type 

long 

var iab  le 

u3_tb 

type 

long 

var iab le 

f3_dev 

type 

long 

variable 

u3  dev 

type 

long 

variab le 

f  4_tb 

type 

long 

variable 

u4_tb 

type 

long 

var lab le 

f  4_d  e  v 

type 

long 

variab le 

u4  dev 

type 

long 

var iab  le 

f  3_tb 

type 

long 

var iab 1 e 

u3_tb 

type 

long 

var iab le 

f 3_dev 

type 

long 

variab le 

u3_dev 

type 

long 

variab le 

f6_tb 

type 

long 

variab  1  e 

u6_tb 

type 

long 

var iab le 

f6_dev 

type 

long 

var iab  1  e 

u6  dev 

type 

long 

var iab  1  e 

f  7_tb 

type 

1  ong 

variable 

u7_tb 

type 

1  ong 

variable 

f 7_dev 

type 

long 

var  table 

u7_dev 

type 

long 

end 


output 

top  margin  0 
bottom  margin  0 
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l*ft  margin  0 
page  length  32000 
report  to  "sysprol  out" 
end 

read  into  b 
dc l_d*f 

where  dcl_cod*  *>  code  and  dcl_name  ■  nan* 
end 

read  into  c 

ut  tq,ue  ssndef_ssn 
joining  b.dcl_def  «  ssnd*f_d*f 
end 

read  into  a 

wkpsys_cmd  wkpsys_cat  wk p s y s_s ub ca t  wkpsys_wkpkg  wkpsys_ssn 
wkpfr_fO  wkpfr_fl  wkpfr_f2  ukpfr_f3  wkpfr_f4  wkpfr_f3  wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr^_u3  wkpfr_u4  wkpfr_u3  wkpfr_u6  wkpfr_u7 
joining  c.  ssnd*f_ssn  “  wkpsys_ssn 

and  wkpsys_wkpkg_idx  •  wkp kg_wkpsys_id x 
and  wkpkg_no_id*  »  wkp f r_wkp kg_id x 

end 

sort  by  wkpsys_ssn  wkpsys_cmd  wkpsys_cat  wkpsys_wkpkg  end 
format 

before  group  of  wkpsys_ssn 
let  fO_tb  =  0 
let  uO_tb  *■  O 
let  fO_d*v  *  o 
let  uO_dev  ■  0 
let  fl_tb  =  0 
let  ul_tb  =  O 
let  fl_dev  *»  0 
let  ul_dev  ■  O 
let  f2_tb  »  0 
let  u2_tb  »  0 
let  f2_dev  «  0 
let  u2_dev  *  0 
let  f3_tb  -  0 
let  u3_tb  =  0 
let  f3_d*v  -  0 
let  u3_dev  *  0 
let  f4_tb  =*  0 
let  u4_tb  »  0 
let  f4_dev  »  0 
let  u4_dev  *  0 
let  f  3~tb  -  0 
let  u3_tb  «  O 
let  f 3_d ev  ■  0 
let  u3_d*v  «  0 
let  f 6_tb  »  0 
let  u6_tb  *  0 
let  f6_d*v  »  0 
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1st  u6_dev  »  0 
let  f 7_tb  *  0 
let  u7_tb  *  0 
let  f 7_d e v  »  0 
let  u7_d€V  m  o 

before  group  of  u/kp*ye_u/kpkg 

if  u/kp*y*_subcat«"6.  1  “  or  u/kp*ys_*ubcat»"6.  2"  or  u/kp»y*_*ubcat*»"6.  3A"  than  begin 
let  fO_tb  »  fO_tb  +  u/kpfr_fO 
let  f  1  _tb  ■  f l_tb  +  u/kp  f  r  _f  l 
let  f 2_tb  »  f2_tb  +  u)kpfr_f2 
let  f3_tb  *  f3_tb  +  iukpfr_f3 
let  f4_tb  «  f4_tb  +  uikpfr_f4 
let  fS_tb  -  f  3~tb  +  u/  k  p  f  r  ~f  5 
let  f6_tb  “  f6_tb  +  u/kpfr_f6 
let  f 7_tb  =  f 7_tb  +  u/kpf  r_f  7 
let  uO_tb  »  uO_tb  +  u/k  pf  r_uO 
let  ul_tb  *  ul_tb  +  uikpfr_ul 
let  u2_tb  =  u2_tb  +  iukpfr_u2 
let  u3_tb  =  u3_tb  +  iukpfr_u3 
let  u4_tb  *  u4_tb  +  ukpfr_u4 
let  u3_tb  »  u3_tb  +  uikpfr_u5 
let  u6_tb  =  u6_tb  +  u/kpfr_u6 
let  u7_tb  =  u7_tb  +  u/kpfr_u7 
end 

else  if  ■ukp*ys_eubcat  =  "6.  3B"  or  u/kpsys_subcat=“6.  4"  or  <ukpsys_subcat«*"6.  7"  then  begin 
let  fO_dev  »  fO_dev  +  u/kpfr^fO 
let  fl_dev  “  fl_dev  +  uikpfr_fl 
let  f2_dev  *  f2_dev  +  u/kpfr_f2 
let  f3_dev  »  f3_dev  +  u/kpfr^fS 
let  f4_dev  *  f4_dev  +  u/kpfr^f4 
let  f3_dev  «  f3 _dev  +  «/kpfrwf 3 
lat  f6_dev  ■»  f6_dev  +  u/kpfr_f6 
let  f7_dev  *  f7_dev  +  u/kpfr_f7 
let  uO_dev  -  uO_dev  +  u/kpfr_uO 
let  ul_dev  ■  ul__dev  +  u/kpfr_ul 
let  u2_dev  «  u2__dev  +  u/kpf  r_u2 
let  u3_dev  *  u3_dev  +  u/kpfr_u3 
lat  u4_dev  «  u4_dev  +  u/kpfr_u4 
let  u3_dev  »  u3_dev  +  u/kpfr_u3 
let  u6_dev  »  u6_dev  ♦  u/kpfr_u6 
let  u7_dev  »  g7_dev  +  u/kpfr_u7 
end 

after  group  of  u/kpsys_isn 
let  v-"!" 

print  "i  v(  u/kp  jy»_»*n.  v< 

print  fO_tb,  v,  f l_tb,  v,  f2_tb.  v,  f3_tb,  v,  f4_tb.  v,  f3_tb,  v,  f6_tb,  v,  f7_tb.  v; 
print  uO_tb ■  v<  u l_tb <  v.  u2_tb .  v.  u3_tb<  v.  u4_tb<  v>  u3_tb ■  v.  u6_tb .  v<  u7_tb<  v/ 
print  fO_dev,  v,  f l_dev.  v.  f2_dev.  v.  f3_dev.  v,  f4_dev,  v,  f3_dev.  v.  f6_dev.  v.  f7_dev.  v; 
print  uO_d ev.  v.  ul_dev»  v,  u2_dev.  v.  u3_dev»  v.  o4_dev,  v,  u3_dev<  v.  u6_dev#  v<  u7_d ev(  v 
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<  System  Resource  Report  u/ith  ROTE  Funding  Chart. 

Modified  on  2/5/86  to  include  mission  area  parameter  and  date-time 
stamp  on  each  page 

Modified  on  5/19/86  to  add  command  and  group  parameters, 

and  to  change  report  in  order  to  run  in  mamp. 
Made  corrections  5/20/86 

3/29/86  merged  into  a  single  file  for  all  commands  as  an  option. 
6/10/86  removed  the  group  parameter.  > 

database  mamp  end 


define 

variable  wkp  type  integer 

variable  tbo  type  integer 

variable  pgend  type  integer 

variable  f8S  tyoe  float 

variable  f86  type  float 

variable  f87  type  float 

variable  f88  type  float 

variable  f89  type  float 

variable  f 90  type  float 

variable  f9l  type  float 

variable  f92  type  float 

variable  u83  type  float 

variable  u86  type  float 

variable  u87  type  float 

variable  u88  type  float 

variable  u89  type  float 

variable  u90  type  float 


variable  u91  type  float 

variable  u92  type  float 

variable  pno  type  integer 

paramCll  pletter  type  character  length  1 
paramC23  code  type  integer 

paramC3J  name  type  character  length  12 

paramCdl  cmd  type  character  length  12 

end 


input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  > 
end 


output 

left  marg in  Q 
right  margin  132 
report  to  “sysres  out 
end 


read  into  c 

scl_ssn  scl_code 

where  scl_code  «  code  and  scl_name  »  name 
end 


read  into  a 
c 
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hipri_title 

ssn_amc_mgr  ssn_da_ma  ssn_trad oc_ma 
where  ssn_amc_mgr  matches  cmd 

and  ( ssn_acy_code  *  3  or  ssn_acg_code  =  4) 

•^excludes  base  case,  type  classified/  tech  demo#  and  BBTA  systems.} 
joining  c.scl_ssn  =  ssn_ssn 
and  c.  scl_ssn  =  hipn_ssn 

end 

read  into  c 
a 

ul<Pl<9_r'0_idx  wkpkg_subcat 

uikpfr_fO  wkpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f5  wkpfr_f6  wkpfr_f7 
u»kpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u5  wkpfr_u6  uikpfr_u7 
joining  a.scl_ssn  =  optional  wkpsys_ssn 

and  uk  p  sy  s_wkp  k  g_i  d  x  =  optional  wkp k g_wkp sy s_i d x 
and  wkpkg_no_idx  =  uk p  f  r_wkp  k  g_i d  x 

end 

sort  by  scl_ssn  end 
format 


page  header 

print  column  47/  "*#■****  UNCLASSIFIED  *♦****•■ 

Skip  2  1 ines 

print  column  42,  "SYSTEMS  WITHOUT  ACTIVE  6.  3B/6.  4  WQRKP ACKAGES  FOR  ".name 
skip  3  lines 

print  column  90, "DEVELOPMENT  SCHEDULE” 
print  "  - 


print 

print 


SSN”, 10  spaces. "TITLE", column  37, "DA/TDC  MA", column  67, 

FY86  FY87  FY88  FY89  FY90  FY91  FY92  FY93  ! 


print  " ! " 
let  pgend 


column  67, 
*  0 


column  132, 


page  trailer 

if  pgend  “  0  then  begin 

print  "i", column  67, " 1 " , c o 1 umn  132.  " 

print  "  - - - 


end 

else  skip  2  lines 
skip  2  lines 

print  "Legend:  ",  column  47,  "******  UNCLASSIFIED  ******•' 
print  "■***•***  Funded  (Tech  Base  Only >", column  100, date. 2  spaces, time 
print  "■*—*—*-  Partial  Funded" 
print  ” -  Unfunded"; 

if  pletter  «  "Z"  then  print  column  60, pno 

else  print  column  60, p letter, pno  using  "###" 

let  pno  ”  pno+1 


on  last  record 
let  pgend  =*  1 
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print  "i". column  67.  "  :  “ ,  c  o  1  umn  132.'*! 
print  “  - - 


before  group  of  scl_ssn 
let  uikp  =  1 
let  tbo  =  1 
let  f 85  =  0 
let  f 86  =  0 
let  f 87  =  0 
let  f 88  *  0 
let  f 89  =>  0 
let  f 90  =  0 
let  f 91  =  0 
let  f 92  =  0 
let  u85  =  0 
let  u86  =  0 
let  u87  =  0 
let  u88  =  0 
let  u89  =  0 
let  u90  =  0 
let  u91  =  0 
let  u92  =  0 

after  group  of  scl_s5n 

if  uikp  =  l  or  tbo  =  l  then  begin 

print  "!  '* .  s  c  1  _s  s  n .  2  spaces.  hipri_titleCl» 453.  1  space. 

ssn_da_ma,"  /  ",  ssn_tradoc_«ia.  column  67.  ''!''; 
if  f850O  then  begin 

if  u85>0  then  print  "*-•*-*-*- **;  else  print  ’’e*******'' ;  end 

else  if  u8300  then  print  “ - else  print  "  ” ; 

if  f 8600  then  begin 

if  u86>0  then  print  else  print  "********",■  end 

else  if  u8600  then  print  " - '*;  else  print  *' 

if  f 8700  then  begin 

if  u8700  then  print  else  print  "******#*'' ;  end 

else  if  u 8700  then  print  " - else  print  " 

if  f880 0  then  begin 

if  uSSOO  then  print  else  print  ••********••  i  end 

else  if  u8800  then  print  " - else  print  " 

if  f8900  then  begin 

if  uS900  then  print  "*-*-*—*-*';  else  print  "******•**";  end  j 

else  if  u8900  then  print  “ - - - else  print  ''  '*;  ! 

if  f900 0  then  begin 

if  u9000  then  print  **#-*-#-#—“(  else  print  "*■***■****";  end 

else  if  u900'0  then  print  " - else  print  "  '*; 

if  f910 0  then  begin  | 

if  U9100  then  print  ''*-*-*-*-*';  else  print  "********'';  end 

else  if  U9100  then  print  “ - else  print  "  '*; 

if  f9200  then  begin 

if  u920’0  then  print  *'*-*—*-*—";  else  print  "**•******";  end  I 

else  if  u92>0  then  print  '* - *'<  else  print  " 

print  column  132."!*' 
end 

on  every  record  ) 
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if  uikp  kg_noO"  ”  then  let  wkp  =  0 

if  uikp  kg_so6  ca  t  =  "6  3S"  or  uk  p  k  g_subca  t«"6.  4"  or  wk p k g_sub ca t="6.  5 
or  wk p k g _subca t  =  “6.  7"  than  let  tbo=Q 
let  f 83  -  f 83  +  ukpfr_fO 
let  u83  =  u83  +  wkpfr_uO 
let  f 86  »  f 86  +  in k p  f  r ~f  1 
let  u86  =  u86  *  uikpfr_ul 
let  f 87  =  f 87  +  u k p  f  r ^f  2 
let  u87  =»  u87  +  wkpfr_u2 
let  f 88  =  f 88  *  u/k p f r ~f 3 
let  u88  «  u88  +  uikpfr_u3 
let  f  89  =  f  89  +  uikpfr_f4 
let  uS9  *  o89  *  wkpfr_u4 
let  f 90  =  f 90  +  uk  p  f r_f 3 
let  u90  =  u90  +  ukpfr_u5 
let  f 91  =  f 9 1  +  w  k  p  f  r  _f  6 
let  u91  »  u91  +  inkpfr_u6 
let  f 92  =  f 92  uikpfr_f7 

let  u92  =  u92  +  u/kpfr_u7 


end 
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database  manp  end 
define 

variable  hissn  type  character  length  6 

variable  hiev  type  integer 

variable  hipdip  type  character  length  6 

variable  hiscore  type  float 
variable  score  type  float 

variable  conval  type  float 

end 

output 

page  length  32000 
top  margin  0 
left  margin  0 
report  to  "tste.  out" 
end 

read  into  b 

unique  pcl_idx 
end 

read  into  a 

ukp  kg_tukpsys_id  x 

wkpsys_ssn  uikpsys_srf 

joining  b.pcl_idx  =  u/kp  kg_pr  o  J_id  x 

and  ukp  kg_uikpsys_id  x  =  ukpsy s_ukp k  g_i d  x 
and  uikpsys_ssn  =  unissn_ssn 

end 

read  into  c 
a 

prior l_score 

hipri_pdip  hipri_pri  hipri_ok 

joining  a.  ink  p  sy  s_ssn  »  optional  pr  iorl_ssn_no 
and  a.  uikpsys_ssn  =  optional  hipri_ssn 

end 

sort  by  <ukpkg_cmd  uikpkg_cat  ukpkg_no  wkpsys_ssn 
hipri_ok  descending  hipri_pri  end 


format 

before  group  of  ukpkg_no 
let  hiscore  »  -1.0 
let  hissn  ■  ”  “ 
let  h iev  -  0 
let  hipdip  *  "  M 

before  group  of  ukpsys_ssn 

if  uikpsys_ssn  O  “  "  then  begin 

If  ukpsys_srf  »  1  then  let  conval  «  10.0 

else  if  ukpsys_srf  ■  2  then  let  conval  »  3.  0 

else  if  wkpsys_srf  m  3  then  let  conval  »  2.  3 

else  if  wkpsys_srf  «  4  then  let  conval  *  1.23 

else  let  conval  >0.0 
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let  scon  «  |)Tlorl_scort*convil 
If  score>h iscon  than  begin 
let  hissn  =  wkpsgs_*sn 
l«t  hlcv  «  wkpsijs_srf 
let  hiscore  “  score 
let  hipdip  »  hipri_pdip 
end 
end 

after  group  of  wkp  k  g_no 

print  u/kp  kg_cmd,  “  i,,,wkpkg_cat,  "  :",uikpkg_subeat.  ,'i",wkpkg_pe,  "  i  “ 
ukpkg_proji  "!"iuikpkg_taski  “  i  "  ,  w  k  p  k  g  _n  o  *  “  !  *  •  hissn,  “  !  " ,  h  i  c  v 
hipdip,  “!H, hipdip,  "10.  0 ! " 

end 
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<  Workpackages  not  linked  to  ang  systems,  based  on  missing  uniwkp  linkages,  and 
their  funding  streams  This  report  u/ill  be  used  to  identify  missing  data 
elements,  and  to  locate  billpayers  that  might  escape  notice  in  other  reports. 

7/28/86  Initial  report.  Taken  from  decwpbdp.  > 

database  manp  end 


define 


par amt  1  1 

p 1 e  t  ter 

type 

charac  ter 

length 

1 

paramC21 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

par amC4 3 

cmd 

type 

character 

1  eng  th 

12 

var  iab  1  e 

pno 

type 

integer 

var i ab  1  e 

p  g  end 

type 

integer 

var iab  1  e 

cnt 

type 

integer 

variable 

to 

type 

long 

var iab  1  e 

f  1 

type 

long 

var iab  1  e 

f  2 

type 

long 

var iab  le 

f  3 

type 

long 

var iab  le 

f  4 

type 

long 

var iab  le 

f  5 

type 

long 

var iab  le 

f  6 

type 

long 

var iab  1  e 

f  7 

type 

long 

var iab  le 

uO 

type 

long 

var  iab  1  e 

ul 

type 

long 

variable 

u2 

type 

long 

var iab  1  e 

u3 

type 

long 

var iab  le 

u4 

type 

long 

var iab  le 

u3 

type 

1  ong 

var iab  le 

u6 

type 

long 

variable 

u7 

type 

long 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  marg  in  0 
right  margin  132 
report  to  "unlkwkp.  out" 
end 

read  into  b 
p  c  1  _i  d  * 

where  pcI_code  =  code  and  pcl_name  ■  name  and  pcl_cmd  matches  cmd 
end 

read  into  c 

uikp  kg_no_id  x  wkpkg_pe  wkpkg_proj  wkpkg_task  wkpkg_title 

where  uniwkp_ssn  ■  "  " 

joining  b.pcl_idx  =  wk p k g _pr o j_i d x 

and  wkp kg_wkpsys_id x  =  optional  un iwk p_wk p kg_i d x 

end 


I 

I 

I 
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read  into  d 
c 

tu  k  p  -P _ y  i-  wkpf_fund  ujkpf_unfund 

joining  c .  uikp  kg_no_i  d  x  -  optional  uikp  f  _wk  p  kg_i  d  x 
and 

sort  by  wkpkg_pe  u/kpkg_proj  wkpkg_task  uikpkg_no  wkpf_yr  end 
format 


page  header 
print  column 
skip  2  lines 
print  column 
print  column 
skip  3  lines 
print  column 
print  M  - 


47,  "•***•***  UNCLASSIFIED  *•*•****" 

45, name  clipped,"  FUNDED  WORKPACKAGES  NOT  LINKED  TO  SYSTEMS 
53, "WITH  FISCAL  RESOURCES  SHOWN" 

90, "DEVELOPMENT  SCHEDULE" 


print 

print 


PE/PROU/TASK/WKPKG", 3  spices, "TITLE", column  67, 

FY86  FY87  FY88  FY89  FY90  FY91  FY92  FY93 


print  " ! " 
let  pgend 


,  c  o 1 umn 
=  0 


67, 


i ",  column  132, 


page  trailer 

if  pgend  =  0  then  begin 

print  " ! c o 1 umn  67, " ! " , c o 1 umn  132, 
print  ”  - — 


end 

else  skip  2  lines 
skip  2  1 ines 

print  column  47,  •'*****♦  UNCLASSIFIED  ******" 

print  column  100, date, 2  spaces, time 

if  pletter  =  "Z"  then  print  column  60, pno 

else  print  column  60, p 1 e tter , , pno  using  "###” 

let  pno  *  pno+1 


on  last  record 
let  pgend  »  1 

print  " ! ",  column  67,  " i “ ,  c o  1  umn  132,"! 
print  “  - - 


print  ".'".column  35,  "Cumulative  Funded  R  esour  c  es  " ,  co  1  umn  67,"!", 

fO  using  "##*#*##  ",fl  using  "#*#####  ",f2  using  "#######  ", 

f 3  using  "*###**#  ", f4  using  "#######  ", f5  using  "#######  ", 

f 6  using  ”#######  ",  f7  using  "#######  ".column  132,"!" 

print  "!", column  35."  Unfunded  Rksources", column  67."!", 

-uO  using  “((((((#)", -ul  using  "((((((#)",  -u2  using  "(((<<<#)", 
-u3  using  “((({((#)", -u4  using  “(<((((*)",— u5  using  "((((<(#)", 
— u6  using  “((({((#)", -u7  using  "((((((#)",  column  132,"!" 
print  " - - - 
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before  group  of  u<  k  p  k  g  _n  o 
let  cnt  »  cnt-rl 

print  "  !  ".cnt  using  “#«#.  iukpkg_j>e.  1  spac  e .  wkp  k  g_pr  o  j .  1  space. 
u)kp  Vs _ fc<as  k  clipped.  1  space,  uikpkg  _no.  col  umn  32.  uik  p  k  g_c md ,  col  umn  67. 

Uefore  group  of  w  k  p  f  _y  r 

if  iukp  f  _gr>  1983  then  begin 

print  column  (8* (wkp f _yr— 1 986 ) *68 ) : 

if  wkpf_fund>0  then  print  uikpf_fund  using  ”*######  "i 
else  if" u/kpf_unfund>0  then  print  -uikpf  _unf  und  using  “<<<<<<*)“•. 
end 

if  mkpf_gr*1986  then  begin 
let  fO  *  fO+wkp f _f und 
let  uO  =  uO+wkp f_unf und  end 
else  if  uk p f _yr =1 987  then  begin 
let  fl  *  f  1+uikp  f  _f  und 
let  ul  =  ul+wk p f _unf und  end 
else  if  'jikpf_yr  =  19S8  then  begin 
let  f 2  =  f2+u/kp f_f und 
let  u2  =  u2+wkp f _unf und  end 
else  if  ukpf_gr=1989  then  begin 
let  f3  =  f 3+u/kp f _f und 
let  u3  =  u3+u/kp  f  _unf  und  end 
else  if  wkpf_yr=1990  then  begin 
let  f 4  =  f 4+mkp f _f und 
let  u4  =  u4+u/k  p  f  _unf  und  end 
else  if  (ukpf__yr  =  1991  then  begin 
let  f5  =  f 5+ukpf _fund 
let  u3  =  u3+iukp  f  _unf  und  end 
else  if  sikpf _yr=1992  then  begin 
let  f6  =  f6+wkp  f  _f  und 
let  u6  =  u6+u/kp  f  _unf  und  end 
else  if  u/kpf— yr  =  1993  then  begin 
let  f  7  «  f  7+uikp  f  _f  und 
let  u7  =  u7+wkp f _unf und  end 

after  group  of  uikpkg_no 
print  column  132."!" 

print  "l  ".3  spac  es,  u/k  p  kg_t  i  t  le  C  l .  3B3<  eo  lumn  67,  column  132."'" 


end 
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{  This  program  rolls  up  the  funding  for  a  uorkpackage  into  a  single  record 

database  manp  end 

define 

paramCll  base  type  integer 
variable  v  type  character  length  1 

variable  byr  type  integer 
variable  gO  type  long 
variable  fO  type  long 
variable  uO  type  long 
variable  gl  type  long 
variable  fl  type  long 
variable  ul  type  long 
variable  g2  type  long 
variable  f2  type  long 
variable  u2  type  long 
variable  g3  type  long 
variable  f3  type  long 
variable  u3  type  long 
variable  g4  type  long 
variable  f4  type  long 
variable  u4  type  long 
variable  g5  type  long 
variable  f5  type  long 
variable  uS  type  long 
variable  g6  type  long 
variable  f6  type  long 
variable  ud>  type  long 
variable  g7  type  long 
variable  f7  type  long 
variable  u7  type  long 
end 

output 

top  margin  O 
page  length  32000 
left  marg  in  0 
right  margin  132 
report  to  "u/kpfr.out" 
end 

read 

mk  p  f  _c  md  ukpf_cat  uk  p  f  _wk  p  k  g  uikpf_yr  wkpf_guid  ukpf^fund  uikpf_unfund 
end 

sort  by  u/kpf_cmd  'i/kpf_cat  <i/k  p  f  _wk p  k  g  ii'kpf_yr  end 
format 

before  group  of  wkpf  _w  k p  k  g 
let  v  -  ' ! " 
let  byr  »  ukpf_yr 
let  gO  =  0 
let  fO  -  0 
let  uO  -  0 
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let  g 1  =  0 
let  fl  =  0 
let  u  1  =  0 
let  g2  =  0 
let  f  2  =  0 
let  u2  -  0 
let  g3  =  0 
let  f  3  =*  0 
let  u3  =  0 
let  g  4  =  0 
let  f  4  =  0 
let  u4  =  0 
let  gS  =  0 
let  f3  =  0 
let  u5  =  0 
let  g6  =  0 
let  f 6  =  0 
let  u6  =  0 
let  g7  =  0 
let  f 7=0 
let  u7  -  0 

after  group  of  ukpf  _w  k  p  k  g 

print  tu k  p  f  _c  md  .  v,  wkpf_cat<v.  uikp  f  _uik  p  k g <  v.  b  g r ,  v> 
gO.  v.  fO,  v,  uO/  v,  gl,v,  f  1 ,  v,  ul,  v. 


g2i  v.  f2>  v.  u2.  v.  g3.  v.  f3.  v<  u3<  v. 

g 4 *  v.  f4.  v.  u4<  v.  g3.  v.  f5,  V/  u5,  v. 

g6.  v.  f6.  v.  u6.  v.  g7>  v.  f  7,  vr  u7.  v 


before  group  of  iukpf_gr 

if  wkpf_gr  =  base  then  begin 
let  gO  =  iakpf_guid 
let  fO  =  uikpf_fund 
let  uO  =  'iikpf_unf und  end 
else  if  'J  k  p  f  _g  r  *=  base  +  1  then  begin 
let  gl  »  u/kpf_guid 
let  fl  =  iukpf_fund 
let  ul  =  wkpf_u nfund  end 
else  if  'akpf_yr  =  base+2  then  begin 
let  g2  =  uikpf_guid 
let  f2  =  'jjkpf_fund 
let  u2  ~  ujkpf _u nfund  end 
else  if  ukpf_gr  =  base+3  then  begin 
let  g3  =  wkpf_guid 
let  f3  =  U)kpf_fund 
let  u  3  =  wkpf_u nfund  end 
else  if  ti  k  p  f  _g  r  «=  b  a  s  e  +  4  then  begin 
let  g4  =  iukpf_guid 
let  f4  =  ukpf _f und 
let  u4  =  ujk  p  f  _unf  und  end 
else  if  wkpf_gr  »  base  +  3  then  begin 
let  g3  =  ‘jjkpf_guid 
let  f3  =  'akpf_fund 
let  u3  =  'jikpf_u nfund  end 
else  if  uikpf_gr  =  base+6  then  begin 
let  g6  *  wkpf_guid 
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let  f  6  =  mkpf _f und 
let  u  6  =  wkpf_unfund  end 
else  if  wkpf_yr  =  b  a  s  e  +  7  then  begin 
let  g7  =  'ukpf_guid 
let  f 7  =  mkpf_fund 
let  u7  =  iukpf_unfund 
end 

end 


Jun  13  17.  16  1906  wkpindex  Page  1 


f 

e 


database  unp  end 

{  modified  2/10/36  to  add  ma  parameter,  date-time  stamp 
3/6/86  to  add  page  number  input 
Modified  5/23/86.  changed  to  mamp  database 


6/13/86 

changed 

header 

,  > 

def ine 

variab 1 e 

junk 

type 

integer 

variable 

pno 

type 

integer 

p.aramC  1 1 

p  1  etter 

type 

character 

length 

1 

paramC23 

code 

type 

integer 

paramC33 

name 

type 

character 

length 

12 

p  aramC4  3 

cmd 

type 

character 

length 

12 

end 


input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  margin  132 
report  to  "iukpinde<.  out" 
end 

read  into  b 

proj_idx  proj_title 
pr jctl 

u/here  pcl_code  =  code  and  pcl_name  =  name  and  pcl_cmd  matches  cmd 

and  (pcl_subcat  =  "6.  3A“  or  pcl_subcat  =  "6.  3B"  or  pcl_subcat  =  "6  4 
or  pcl_subcat  =  "6.7") 
joining  pcl_idx  »  proj_idx 
end 

sort  by  proj_pe  pro.j_no  proj_cmd  end 

format 

page  header 

print  column  47,  “*■»■*■»*  UNCLASSIFIED  **-»»■»" 
skip  2  lines 

print  53  spaces. name  clipped,"  RDTE  PROJECT  INDEX" 
skip  3  1 i nes 

print  20  s pac e s . “PE " . 5  s p ac e s , "PROJ" , 23  sp ac es, "TITLE" , 

38  spac es. "COMMAND" , 8  spaces. "PAGE" 
skip  2  lines 

before  group  of  proj_no 
let  junk  *  junk+1 

before  group  of  proj_cmd 

print  19  spaces,  pci _pe. 3  spaces. pci _proj. 

3  spac es.  p r o j _t i 1 1 e,  3  spaces,  pc l_cmd,  3  spaces," - ” 

page  trailer 
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skip  1  line 

print  column  47,  "**•»**  UNCLASSIFIED 
print  column  100, date, 2  spaces, time 
if  p  letter  =  ''Z"  then  print  60  spaces,  pno 
else  print  60  sp  ac  es,  p  1  e  tter  p  no  using  "###'• 

let  pno  =  pno+1 
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<  7/11/86  workpaekage  to  system  cross  reference.  Show  all  workpackages  in  a 
mission  area,  what  systems  that  they  are  linked  to.  what  the  linkage 
priorities  of  that  system  are.  and  its  highest  priority  pdip.  This  will  be 
used  to  determine  the  optimum  linkage  between  workpackages  and  systems  for 
the  pdip  submit  process. 

7/13/86  changed  wkpsys_wc  to  wkpsys_srf.  > 
database  mamp  end 
define 


var iab 1 e 

pagecount 

type 

integer 

var iab  1  e 

pno 

type 

integer 

var iab  1  e 

newssn 

type 

integer 

par amC 1 1 

p letter 

type 

character 

length 

1 

paramCZl 

code 

type 

integer 

paramC31 

name 

type 

character 

length 

12 

paramC41 

pno  j 

type 

character 

length 

4 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  “ 
end 

output 

right  mar g in  132 
left  margin  O 
report  to  "wkpsys.  out" 
end 

read  into  d 
pc l_idx 

where  pcl_code  «  code  and  pcl_name  «  name 
and  pcl_cat  *  “6.3"  and  pcl_subcat  O  "6.5“ 
and  p  c 1 _p  r o  j  matches  proj 

end 

read  into  b 

proj_idx  proj_title 

wk p k g_t i t 1 e  wkpkg_task  wkpkg_no_idx  wkp k g_wk p sy s_i d x  wkpkg_pdip 
joining  d.pcl_idx  =  proj_idx 

and  proj_idx  =  optional  wkp k g_pr o j_i d x 

end 

read  into  c 
b 

wkpsys_ssn  wkpsys_srf 
uniwkp_ssn  uniwkp_pdip 

joining  b  .  wkp kg_wk p sy s_i d x  *  optional  wk p sy s_wk p kg_i d x 
and  b .  wk p kg_wkp sy s_id x  =  optional  un iwkp _wkp kg_i d x 

end 

read  into  a 
c 

lrrdp_title  lrrdp_pdip 

lrrdppri_pri 

pr ior l_score 
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joining  c.wkpsgs_ssn  «  optional  lrrdp_ssn 

and  c .  ink  p  sg  s_ssn  «  optional  pr  i  or  1  _s  sn_no 
and  lrrdp_pdip  «  optional  lrrdppr i_pd ip 

end 

read  into  e 
sc l_ssn 

where  scl_code  “  cod*  and  scl_nam*  «  name 
end 

read  into  c 
a 
e 

joining  a.wkpsgs_ssn  =  optional  e.  scl_ssn 
end 

sort  bg  proj_cmd  proj_p*  pro j_no  wkpkg_task  uikpkg_no  uikpsgs_ssn 
lrrdp_pdip  lrrdppri_pri  end 


format 
page  header 

print  column  47.  "******  CONFIDENTIAL  *■***■»*" 
skip  2  lines 

print  column  45. “PRO JEC T/WORKPACKAGE/SYSTEM  LINKAGE  SUMMARY" 
skip  2  1 ines 

print  8  spac es , "COMMAND :  ".proj_cmd, 

8  spaces.  "PROJECT:  “.proj_pe.2  spaces,  proj_no. 

10  spaces.  "TITLE:  ".proj_titl*  clipped; 
if  pagecount  «•  1  then  print  “  (continued)"  else  print  “  " 
skip  1  line 

page  trailer 
skip  2  1 ines 

print  "Legend:  ".column  47,  "■»*****  CONFIDENTIAL  ***■»**" 

print  “*  -  Sgstem  Designated  in  Mission  Area", column  100,  date,  2  spaces,  time 

print  -  Major  Designated  Sgstem  for  Fiscal  Ac c oun tab i 1 i t g " 

print  "v  -  Wor kpac kag e-Sg s tem  Rating  Factor" 

if  pletter="Z"  then  print  column  60, pno 

els*  print  column  60,  p 1 e t ter , , pno  using  ”###" 

let  pno  «  pno+1 

before  group  of  proj_no 
let  pagecount  =  0 
skip  to  top  of  page 

before  group  of  tekpkg_no 
skip  1  line 
let  pagecount  «  l 

print  uikp  k  g_tas  k  C  1 .  43 ,  1  spac  e,  wk  p  k  g_no,  1  spar,  e,  wkp  k  g_t  i  1 1  e.  6  spaces,  "v#'-” , 

5  spaces.  u«kpkg_pdipCl,  43.  "-".uikpkg_pdipCS,63, 

8  spaces. “PRI". 10  spaces. "BDP" 

before  group  of  wkpsgs_ssn 

if  wkpsgs_ssn  O  "  ”  then  begin 

print  5  spaces,  wkpsgs_ssn,  2  spac es.  lrr dp_t i 1 1 e.  1  space,  wkpsgs_srfi 
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if  scl_s*nO"  “  then  print  else  print  " 

let  neiussn  =  1 
end 

before  group  of  lrrdp_pdip 

if  wkpscjs_ssn  . .  then  begin 

if  neussn  «  1  then  let  newssn  «  0  else  print  81  spaces; 
if  <  uniu<kp_ssn«uikp  sy  s_s  sn  )  and  <  un  itekp  _p  d  i  p=*lrr  d  p  _p  d  i  p  >  then 
print  else  print  “ 

print  3  spac  e  s  -  lr  rdp_pd  i  p  C  1 .  43,  " -'* ,  Irr  dp_p  d  i  p  C3.  63 . 3  spac  es.  lrr  d  p  pr  i_pr  i 
using  "#####.##“, 3  s pac e s .  pr i or  1 _sc or e  using  "#####.##" 

end 

end 
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F 


<  Work  Package  Appendix  > 

<  modified  3/6/86  to  add  mission  area  parameter  and  page  letter  parameter 
and  to  change  system  data  to  come  from  ssndesc 

modified  5/13/86  to  run  in  MAP1P 

3/16/86  added  report  group  (t) 

6/10/86  removed  report  group  parameter. 

6/13/86  added  wkpkg_class  for  classification  > 

database  mamp  end 

def  ine 


var iab  le 

c  1  char 

type 

c  harac  ter 

length 

var iab  le 

sent 

type 

integer 

var i ab  1  e 

pno 

type 

integer 

paramC 1 1 

p letter 

type 

character 

leng  th 

par amC2  3 

code 

type 

integer 

paramC31 

name 

type 

c  harac  ter 

leng  th 

paramC41 

cmd 

type 

character 

length 

end 

input 

prompt  for  pno  using  "Please  enter  the  starting  page  number  >  " 
end 

output 

left  margin  0 
right  mar g in  132 
report  to  "urkapdi.  out" 
end 

read  into  b 
pc l_i d i 

where  pcl_code  =  code  and  pcl_name  =  name  and  pcl_cmd  matches  cmd 

and  <pcl_subcat  =  "6. 3A"  or  pcl_subcat  =  "6.  3E"  or  pcl_subcat  =  "6.4” 
or  pcl_subcat  =  "6.7") 

end 

read  into  a 

wkp  kg_no_id  x  wkpkg_lab  wkpkg_title  wkpkg_pe  wkpkg_proj  wkpkg_task 
wk  P  k  9_wk  p  sy  s_i  d  x  wk  p  k  g  _tr  ans_d  a  t  e  wkpkg_class 

wkpfr_fO  wkpfr_fl  wkpfr_f2  wkpfr_f3  wkpfr_f4  wkpfr_f5  wkpfr_f6  wkpfr_f7 
wkpfr_uO  wkpfr_ul  wkpfr_u2  wkpfr_u3  wkpfr_u4  wkpfr_u5  wkpfr_u6  u/kpfr_u7 
joining  b.pcl_idx  =  wk p k g_p ro j_i d x 

and  wkpkg_no_idx  «  optional  wk p f r_w k p kg _i d x 

end 

read  into  e 

wks_wkpkg_idx  wks_text 
where  wks_gr  =  1987 

joining  a.wkpkg_no_idx  =  wks_wkpkg_idx 
end 


I 

I 

I 

I 

I 


read  into  b 
a 

wkd  text 
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e.  uk  s_te  >  t 
f  lagr 

joining  a.wkpkg_no_idx 
and  a .  uik  p  k  g _no_i  d  x 
and  a.  wk p k g _no_i d x 

end 


optional  wkd_idx 
optional  e  u(ks_wkpkg_idx 
optional  f lagr_wk p k g_i d x 


read  into  c 

wkpsys  hipri_title  ssn_da_ma 

joining  b  .  wk  p  k  g_iukp  sy  s_i  d  x  =  ukp  sys_uikp  kg_id  x 
and  ukpsys_ssn  =  s  s  n  _s  s  n 
and  ukpsys_ssn  =  hipri_ssn 


end 


read  into  a 
b 

c.'ukpsys_ssn  c.hipri_title  c.ssn_da_ma 

joining  b.wkpkg_u;kpsys_idx  =  optional  c.wkpsys_u;kpkg_idx 
end 


sort  by  wkpkg_pe  u/kpkg_proj  ujkpkg_cmd  ukpkg_task  ukpkg_no  iukpsys_ssn  end 
format 


page  header 

let  clchar  =  "  " 
if  u)kpkg_class  =  "S"  then  begin 
let  clchar  =  "S" 

print  column  32, "******  SECRET  **♦***'■ 
end 

else  if  u k p  k g _c  la s s  =  "C  "  then  begin 
let  clchar  =  “C” 

print  column  47,  "******  CONFIDENTIAL  ******" 
end 

else  print  column  47,  "******  UNCLASSIFIED  *♦****'• 
skip  2  1 ines 

print  column  43. “WORKPACXAGE  SUMMARY"  DATA  FOR  " ,  ajk  p  k  g  _cmd  clipped; 
if  (i«k  p  k  g_lab  O"  “  and  u/k  p  k  g_l  abOwkp  k  g_cmd  >  then  print  "  /  ",wkpkg_lab 
else  print  "" 
skip  2  lines 


page  trailer 

if  clchar  =  "S"  then  print  column  52. "******  SECRET  ******" 

else  if  clchar  =»  “C”  then  print  column  47,  "*♦#***  CONFIDENTIAL  ****** 

else  print  column  47,  "******  UNCLASSIFIED  *****♦'• 

print  column  100, date, 2  spaces, time 

if  pletter="Z"  then  print  column  60, pno 

else  print  column  60,  p  letter,  pno  using  •'###" 

let  pno  “  pno+1 


before  group  of  ukpkg_no 
skip  to  top  of  page 
let  sent  »  0 

print  ”PE/Project/Task:  " ,  wkp k g _p e ,  1  space,  wkp kg_pro j,  1  space, 

u|kpkg_task  clipped,"  :  WP  " ,  wkp  k  g_no,  c  o  1  umn  67,  "Title:  " ,  uikp  kg_t  i  1 1  e 
print  "Funded  by:  ",name; 
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print  column  30,  " tra n s i 1 1 on  Date.  ”,  tak p  k g_tr an s_da  te 
skip  3  lines 

print  "  FV86  FY87  FY88  FY89  FY90  FY91  FY92  FY93", 

print  column  90, "De sc r l p t i on " 

print  "  -  -  -  -  -  -  -  - " 

print  "Funded:  ",wkpfr_f0  using  "######", 

w  k  p  f  r_f 1  using  "######", 
ujkpfrlfZ  using  "######", 
ta  k  p  f  r _f 3  using  "######”, 
wkpfr_f4  using  "######“, 
wkpfr_f5  using  ••##•###", 
wkpfr_f6  using  "######■•, 
wkpfr_f7  using  "######"; 
print  column  72,  u k d _t e x t C 1 . 60 1 
print  "Unfunded  ",wkpfr_uO  using  "######"« 
ukpfr^ul  using  *'######", 
iukpfr_u2  using  '*######", 
iukpfr_u3  using 
ukpfr_u4  using  "######''. 
o/kpf r_u5  using  "######". 
wkpfr_u6  using  "tMMUMM*"# 
ui  k  p  f  r  _u  7  using  "##*###'■; 


printcol umn 

72 , 

wkd_textC61, 1203 

print  col  umn 

72. 

wkd_textC121, 1803 

print  "Flags' 

, 

print  column 

72. 

ukd_te*tC181, 2403 

if  f  1  ag  r  l  _n-w 

<t  •• 

then  begin 

print  f  1  a g r  1  _r, ,5  spaces, 

print  f 1  a  g  r  1  ~G  using  ••######",  flagrl_I  using  "######", 
flagrl_2  using  "##4###",  f lagr 1_3  using  "######", 
f  1  a  g  r  1  _4  using  "######'•,  f  la gr  1  _3  using  "*#####“, 
f  1  a  g  r  1  _6  using  "######••,  f  lagr  1_7  using  "######"; 

end 

print  column  72,  wk d_t e x t C241 , 300 3 
if  flagr2_nO“  “  then  begin 
print  flagr2_n,3  spaces; 

print  flagr2_0  using  " , f 1 a g r2_l  using  "####4#", 
flagr2_2  using  "#*####", f 1 agr2_3  using  "######", 
f  1  a g r 2 _4  using  "######",  f  1  ag r2_5  using  "######", 
flagr2_6  using  "######", f lagr2_7  using  ''######"; 

end 

print  column  72,  u/k  d _t  e  x  t  C30 1 , 3603 
if  f  1  a g r3_nO "  "  then  begin 
print  flagr3_n,3  spaces; 

print  flagr3_0  using  “######",  f 1  a g r3_l  using  ”######", 
f  1  a  g  r  3  _2  using  ■'######",  f  lagr3_3  using  "######", 
flagr3_4  using  "######",  f 1  a g r3_3  using  ”######", 
f  1  a g r3_6  using  '•######",  f  1  a gr3_7  using  '■######"; 

end 

print  column  72.  tek  d  _t  e  x  t  C  36 1 .  420  3 
if  f  lag  r4_nO"  ”  then  begin 
print  flagr4_n,3  spaces, 

print  flagr4_0  using  ”#*#***“• f lagr4_l  using  "######", 
flagr4_2  using  "######", f 1 agr4_3  using  "######", 
f 1  a g r 4 _4  using  "######",  f 1 agr4_5  using  "######", 
flagr4_6  using  "###### '*.  f  1  ag r4_7  using  "####»#"; 
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end 

print  column  72,  ink  d  _t  e  x  t  C  42 1 ,  480  3 
if  f  1  a g r 5_nO"  "  then  begin 
print  flagr5_n,3  spaces, 

print  flagr5_0  using  "######",  f  1  agr 5_1  using  “######", 
flagr3_2  using  "######", flagr5_3  using  “######", 
flagr5_4  using  ”######",  f  lag r3_3  using  "######", 
flagrS_6  using  ,'######“ ,  f  1  a g r 5_7  using  ”#(*####"; 

end 

print  column  72.  in  k  d  _t  e  x  t  C  48 1 ,  340  3 
if  f  1  a  g  r  6  __n  -O  "  "  then  begin 
print  flagr6_n,  5  spaces; 

print  flagr6_0  using  ”  ###li #1* ” ,  f  1  a  g  r 6_1  using  "######", 
flagrt>_2  using  "######",  f  1  a g r 6~3  using  ”######", 
flagr6_4  using  "######",  f  1  a g r6_5  using  ”######", 
flagr6_o  using  "  ##1*4##'',  f  1  a  g  r6_7  using  "######"; 

end 

print  column  72.  w  k  d  _t  e  x  t  C  34 1 , 6C0 3 
skip  3  lines 

print  column  10. "Systems  Supported  ( SSN/TI TLE/DA  MA)“; 
print  column  90, ”1987  Workplan" 
skip  1  line 

before  group  of  wkpsys_ssn 

if  s  c  n  t  1 1  5  then  print  wkpsys_ssn,2  spaces, hipri_titleCl, 501,1  space, 
s  s  n__d  a_ma .  c  o  1  umn  72, 
let  sent  =  scnt+1 
if  sent  31  then  begin 


If  sc 

n  t 

=  i 

then 

print 

u  k  s_ 

te  x  t  C 1 . 603 

else 

1  r 

sent 

= 

2 

then 

print 

wk  s 

_tex  tC61 ,  120  3 

else 

1  * 

sent 

= 

3 

then 

print 

wk  s 

te  x  tC 121 .  1803 

else 

l  r 

sent 

= 

4 

then 

print 

wk  s 

textCISl, 2403 

else 

1  r 

sent 

* 

3 

then 

print 

wk  s 

te  x  t  C24 1 , 3003 

else 

l  T 

sent 

= 

6 

then 

print 

wk  s 

textC301,  3603 

else 

1  r 

sent 

= 

7 

then 

print 

wk  s 

_t e  x  t  C36 1 , 4203 

else 

1  + 

sent 

8 

then 

pr  int 

wk  5 

t  e  x  t  C  42 1 , 480  3 

else 

1  r 

s  c  n  t 

= 

9 

then 

print 

wk  s 

t »  x  t  C 48 1 ,  3403 

else 

1  t 

sent 

= 

10 

then 

print  wk s_te x t C 54 1 , 6003 

end 

else  print  “  “ 

after  group  of  uikpkg_no 
if  scnt=0  then  begin 

print  column  72,  wks_textCl,  601 
print  column  72,  wk s_te x t C6 1 . 1201 
print  column  72,  w  k  s  _t  e  x  t  C  1 2 1 ,  1 80 1 
print  column  72 .  w  k  s  _t  e  x  t  C  1 8 1 , 240 1 
print  column  72,  w  k  s  _t  e  x  t  C  24 1 ,  300 1 
print  column  72,  wk s_t e x t C 301 ,  360 1 
print  column  72,  w k s_t e x t C 36 1 .  420 1 
print  column  72,  wk s_t e x t C 42 1 , 480 3 
print  column  72,  wk s_t e x t C4B1 ,  340 3 
print  column  72,  w k s_t e x t C 54 1 ,  600 3 
end 

else  if  sent=l  then  begin 

print  column  72,  wk s_t e x t C61 ,  1203 
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print 

col  umn 

72.  wks_textC121,  1801 

print 

c  c  1  umn 

72,  wks_textC181, 2-01 

print 

col  umn 

72,  uk s_te  x  t  C241 , 3001 

print 

col  umn 

72.  w  k  s  _t  e  x  t  C  20 1 ,  3601 

print 

col  umn 

72,  uk s _t e x t C36 1 ,  4201 

print 

col  umn 

72.  wks_textC 42 1 ,  4801 

print 

c  c  1  umn 

72,  wk  s_te  x  t  C481  ,  5401 

print 

col  umn 

72,  inks  t  e  x  t  C  54  1 , 6001 

end 

else  if 

sent  =2 

then  begin 

print 

col umn 

72-  wks  _t  e  x  t  C  121 .  1801 

print 

col umn 

72,  wks_textC181.  2401 

print 

col umn 

72,  Uh s_te x tC241 , 3001 

print 

col umn 

72.  wk  s_te  x  tC301 , 3601 

print 

col umn 

72,  ink  s_te  x  tC361 , 4201 

print 

col  umn 

72,  wks  _t  e  x  t  C  42 1 .  4801 

print 

col  umn 

72,  w  k  s  _t e  x  t  C 48 1 ,  5401 

print 

col  umn 

72,  wks  t  e  x  t  C  54 1 ,  6001 

end 

else  if 

scnt=3 

then  begin 

print 

col umn 

72,  wks_textC  181,  2401 

print 

col  umn 

72.  uiks_textC241.  3001 

print 

col  umn 

72.  wk  s_te  x  tC301 , 3601 

print 

col umn 

72.  wk s_te x t C361 , 4201 

print 

col  umn 

72,  uk s_te x tC421 , 4801 

print 

c  o ! umn 

72,  wks_text[ 48 1 ,  5401 

print 

c  c 1 umn 

72, uks  textC541, 6001 

end 

else  if 

sen  t=4 

then  begin 

print 

col umn 

72.  wk  sje  x  t  C241,  300  J 

print 

c  o 1 umn 

72.  wks_textC 30 1 , 3601 

print 

col umn 

72,  wk s_t e x t C 36 1 ,  4201 

print 

col umn 

72. wks_textC421,  4801 

print 

col  umn 

72,  wk s_te x t C481 ,  5401 

print 

c  o 1 umn 

72, wks  textC541, 6001 

end 

else  if 

sc  n  t  =  5 

then  begin 

print 

c  c  1  umn 

72,  wks_textC 30 1 , 3601 

print 

column 

72,  wk  s _t  e 1 1  C 36 1 ,  4201 

print 

c  a  1  u  m  n 

72.  wk  s _t e  x  t  C  42 1 ,  4801 

print 

column 

72,  wks _t  e  x  t  C 48 i  ,  5401 

print 

col  umn 

72, wks  textC541, 6001 

end 

else  if 

s  c  n  t  =6 

then  begin 

print 

column 

72,  w  k  s_t  e  x  t  C  36 1 , 4201 

print 

col umn 

72,  wks_textC421,  4801 

print 

co  1  u  m  n 

72,  wks_textC 48 1 ,  5401 

print 

col  umn 

72,  wks  t  e  x  t  C  54 1 ,  6001 

end 

else  if 

sc  n  t  =  7 

then  begin 

print 

col umn 

72, w k  s _t  e  x  t  C  42 1 .  4801 

print 

col umn 

72,  w  k  _t  e  x  t  C  48  1 ,  5401 

print 

col umn 

72, wks  tex tC541, 6001 

end 

else  if 

scnt=8 

then  begin 

print 

col umn 

72,  u/ks.te  x  tC481,  5403 
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print  column  72,  wk s_te * t C541 , 600 J 
end 

else  if  scnt=9  then  begin 

print  column  72,  wk s_t e x t C 341 , 6003 
end 

end 
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<5/16/1986  This  report  generates  input  for  the  flagr  database  file 
which  is  used  in  the  u/rkapdx  report.  > 

database  manp  end 


define 


p  ar  amC 1 1 

base 

■  type 

integer 

var lab  1  e 

V 

type 

character  length  1 

variable 

cnt 

type 

integer 

var iab  1  e 

fO 

type 

long 

var  iab  1  e 

f  1 

type 

long 

var iab  1  e 

f  2 

type 

long 

var i ab  1  e 

f  3 

type 

long 

var  iab  1  e 

f  4 

type 

long 

var  iab  1  e 

f  5 

type 

long 

var  iab  1  e 

f  6 

type 

long 

var iab  1  e 

f  7 

type 

long 

end 

output 

top  margin  0 

page  length  32000 

left  margin  O 

report  to  "xferflag.  out" 

end 

read  into  b 

unigue  p  c  l  _i d  x 

end 

read  into  a 

flag_cmd  flag_cat  flag_wkpkg  flag_name  flag_yr  flag_fund 
joining  b  pcl_idx  =  uk p k g _p r o j_i d x 
and  wkplg_no_idx  =  f  lag  _uikp  k  g_i  d  x 

end 

sort  by  flag_cmd  flag_cat  flag_wkpkg  flag_name  flag_yr  end 

format 

before  group  of  flag_wkpkg 
let  cnt=Q 
let  v  =  " 1 " 

print  flag_cmd,v.  flag_cat.v,  fiag_u>kpkg,v; 

before  group  of  flag_name 
let  fO  =  0 
let  f 1  =  0 
let  f  2  =  0 
let  f 3  =  0 
let  f 4  *  0 
let  f5  =  0 
let  f 6  *  0 
let  f 7  *  O 

after  group  of  flag_name 
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let  cnt  =  cnt+1 

if  c  n  t  <7  then  print  f  lag  _name.  v.  f  0<  v,  f  X «  v.  f  2.  v.  f  3<  v.  f  4,  v.  f  5.  v,  f 6.  v.  f  7. 

after  group  of  flag_wkpkg 
u/hile  cnt<6  do  begin 

print  '•  ;o:o:o:o:o:o:o:o:  •*, 

let  cnt=cnt+l 
end 

print  "" 

before  group  of  f  1  a  g  _y  r 

if  flag_yr  =  base  then  let  fO  =  flag_fund 


else 

if 

f  1  a  g  _y  r 

S 

base+1 

then 

let 

f  1 

= 

f lag_f und 

else 

i  f 

f lag_yr 

= 

base  -*-2 

then 

let 

f  2 

2 

f lag_fund 

else 

if 

f  1  a  g  _y  r 

= 

base+3 

then 

let 

f  3 

= 

f 1 ag  _f und 

else 

if 

f  1  a  g  _y  r 

= 

base+4 

then 

let 

f  4 

= 

f lag_f und 

else 

i  f 

f  1  a  g  _y  r 

= 

base+5 

then 

let 

f  5 

= 

flag _f und 

else 

i  f 

f  1  a  g  _y  r 

= 

bas  e+6 

then 

let 

f  6 

= 

flag  _f  und 

else 

if 

f lag_yr 

= 

base+7 

then 

let 

f  7 

= 

flag _f und 

end 
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